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ABSTRACT 


The  use  of  color  in  the  organization  and  analysis  of  the  output  of  multifactor  sta¬ 
tistical  simulations  is  investigated  with  the  computer  package  SIMTBED  (A  Simulation 
Test  Bed).  Updating  of  this  system  to  the  current  technology  of  color  line  printers  is 
performed.  It  is  shown  how  color  can  be  used  to  code  some  factors  in  a  multifactor 
simulation,  compacting  the  output  and  enhancing  analysis.  An  application  to  the  anal¬ 
ysis  of  the  lag  one  serial  correlation  of  normal  and  non-normal  time  series  using  four 
estimators  (moment,  maximum  likelihood,  robust  regression,  and  the  Cressie  estimator) 
is  provided  as  a  demonstration  of  the  uses  of  SIMTBED  in  statistical  simulations.  These 
estimators  are  examined  for  robustness  and  asymptotic  bias,  as  well  as  relative  behavior 
with  various  sample  sizes.  It  is  shown  that  for  some  time  series  the  robust  estimators 
of  serial  correlation  are  not  acceptable  due  to  bias  and  other  considerations. 
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THESIS  DISCLAIMER 

The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may  not 
have  been  exercised  for  all  cases  of  interest.  While  every  effort  has  been  made,  within 
the  time  available,  to  ensure  that  the  programs  are  free  of  computational  and  logic  er¬ 
rors,  they  cannot  be  considered  validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 
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I.  INTRODUCTION 


This  thesis  consists  of  two  parts:  the  analysis  and  updating  of  an  existing  computer 
simulation  package  to  include  the  use  of  color  in  output  analysis,  and  an  application 
using  the  simulation  methods  in  the  analysis  of  robust  estimators  of  serial  correlation  for 
time  series.  The  technology  of  computers,  especially  the  personal  computer  (PC),  and 
the  abUity  of  the  academic  (as  well  as  the  user)  community  to  perform  computer-assisted 
simulations  is  rapidly  changing,  and  this  work  represents  an  effort  to  use  more  modern 
methods  and  equipment  in  computer  simulations,  such  as  color  printers  and  the  faster 
personal  computers.  This  allows  more  compact  output  analysis  of  the  results  of  multi¬ 
factor  simulations,  through  the  use  of  color  to  code  some  of  the  parameters  of  the  sim¬ 
ulation  experiment.  Through  the  use  of  color,  a  direct  graphic  comparison  of  the 
behavior  of  different  estimators  in  a  statistical  simulation  can  be  made,  enhancing  the 
output  analysis. 

The  research  community  has  provided  several  methods  for  assessing  autocorrelation 
that  warrant  further  research,  and  the  application  of  this  simulation  package  to  some 
of  these  methods  seems  appropriate.  Specifically,  some  autocorrelation  estimators  pur¬ 
ported  to  be  robust  are  evaluated  when  applied  to  time  series  with  various  marginal 
distributions,  including  the  Normal  and  other  non-Normal  distributions,  and  their  be¬ 
havior  is  compared.  These  results  should  prove  useful  to  any  student  or  researcher  in¬ 
terested  in  either  performing  statistical  simulations,  or  the  estimation  of  autocorrelation 
parameters,  for  example  in  the  examination  of  oceanographic  data,  or  positions  of  shells 
on  successive  firings  of  an  artillery  piece.  Serial  correlation  is  of  interest  in  the  study  of 
learning  phenomena,  such  as  accuracy  of  a  rifleman  in  subsequent  shots  at  a  target.  It 
is  also  used  to  study  the  independence  of  the  individual  members  of  a  sample,  to  support 
assumptions  of  independence.  In  these  situations  the  estimator  of  serial  correlation  used 
may  be  important. 

The  remaining  chapters  of  this  thesis  discuss  multi-factor  statistical  simulations,  the 
FORTRAN  simulation  package  SI.MTBED  (SlMulation  Test  BED)  and  its  updating, 
and  application  to  the  estimation  of  serial  correlation.  With  the  pace  of  technology  and 
research  today,  there  is  always  a  need  for  more  effort  to  move  existing  systems  into  the 
current  and  future  technology.  As  our  abilities  to  conduct  these  types  of  experiments 
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improve,  so  will  our  understanding  of  the  theoretical  processes  involved,  and  their  ap¬ 
plication  to  the  real  world  through  research. 
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II.  MULTI-FACTOR  STATISTICAL  SIMULATIONS 


In  their  text  on  simulation  methodology,  Lewis  and  Orav  (Ref.  I,  p.  1-2]  describe  a 
simulation  as  a  controlled  statistical  sampling  technique,  and  a  controlled  statistical  ex¬ 
periment.  This  is  to  be  contrasted  with  real-world  statistical  sampling,  in  which  the 
statistician  has  no  control  over  the  population  being  sampled. 

A.  PURPOSE. 

The  purpose  of  a  statistical  simulation  is  therefore  to  assess  some  property  of  a 
statistical  estimator  of  a  parameter  in  an  i.i.d.  sample  or  in  a  random  process  (time  se¬ 
ries).  These  simulations  are  generally  applied  to  situations  where  the  p’-ocesses  being 
considered  have  no  good  analytical  form  to  study.  When  there  are  multiple  estimators, 
simulation  can  facilitate  choice  among  them,  given  some  criteria  by  which  a  comparison 
can  be  made. 

B.  EXAMPLES. 

Examples  of  statistical  simulations  include; 

•  A  study  of  the  Student's  t  statistic  applied  to  non-Normal  random  samples.  Here, 
there  is  no  good  analytical  result  for  the  behavior  of  the  statistic.  A  comparison 
can  be  made  with  the  behavior  of  the  t-statistic  as  applied  to  Normal  samples. 

•  A  study  of  various  trimmed  means  (say,  5%,  7%,  10%),  and  their  behavior  com¬ 
pared  to  the  arithmetic  mean,  for  different  distributions  and  sample  sizes. 

•  A  study  of  sampling,  with  replacement,  from  a  generated  population,  and  the  study 
of  the  sampling  distribution  of  a  statistic  (say,  the  median),  for  different  distrib¬ 
utions. 

•  Comparison  of  the  .Maximum  Likelihood  Estimator  (MLE)  with  the  Moment  esti¬ 
mator  for  various  statistics. 

•  Large  sample  studies  of  the  asymptotic  behavior  of  some  statistic  (i.e.,  higher  mo¬ 
ments,  like  skewness  or  kurtosis). 

•  A  study  to  analyze  the  variability  of  some  statistic,  when  there  is  no  good  analytical 
result  (such  as  the  variance  of  the  coefTicient  of  variation)  for  different  distrib¬ 
utions. 

C.  CONSIDERATIONS. 

In  all  of  the  examples  and  applications  of  statistical  simulations  the  following  consider¬ 
ations  are  implied: 
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1.  Factors. 

Several  factors  are  involved  in  the  simulation.  These  can  be  the  different  esti¬ 
mators  under  study,  the  type  of  distribution  involved  in  the  study,  some  parameter  var¬ 
iation  on  the  distribution,  the  sample  sizes  involved,  or  any  combination  of  these.  The 
simulation  experiment  is  to  be  repeated  for  each  of  these  factors,  and  the  output  must 
be  analyzed  in  an  organized  manner  to  examine  the  effect  of  varying  these  factors. 

2.  Replications. 

There  is  to  be  some  repetition  of  the  statistical  simulation  to  assess  variability 
information.  Random  processes  are  involved,  and  repetition  is  required  to  observe  be¬ 
havior  with  any  degree  of  assurance.  Sometimes  the  amount  of  repetition  required  to 
gain  an  acceptable  variability  in  the  results  is  unknown  at  the  start  of  the  simulation. 

3.  Resources. 

These  experiments  can  be  complex  to  conduct.  Combined  with  the  factors  in¬ 
volved,  a  significant  computing  resource  can  be  involved.  A  mainframe  can  provide 
computing  power  in  terms  of  speed,  but  at  a  cost.  Personal  computers,  while  possessing 
much  less  speed,  can  accomplish  similar  tasks,  with  more  time  required,  but  the  cost  can 
be  much  less,  especially  considering  the  availability  of  the  personal  computer  versus  the 
mainframe.  In  any  case,  the  user  must  often  write  some  part  of  the  routines  that 
produce  the  simulation.  This  can  include  the  driver  routine,  which  generates  the  random 
process  and  calculates  the  values  under  study,  or  it  could  include  the  entire  simulation, 
including  the  graphics  and  other  output  routines.  The  best  approach  is  to  have  available 
some  package  which  can  take  user  driver  routines  and  then  aggregate  the  output  from 
them  into  a  compactly  presented  output,  so  the  user  can  focus  on  the  aspects  of  the 
simulation  (i.e.,  the  process  and  the  results).  This  is  the  approach  of  SIMTBED. 

D.  OUTPUT  ANALYSIS. 

Consider  the  following  example.  We  wish  to  study  the  behavior  of  four  estimators 
of  serial  correlation  (autocorrelation),  specifically  applying  these  estimators  to  samples 
from  first  order  autoregressive  processes  whose  marginal  distribution  is  the  standard 
Normal  distribution,  and  with  four  other  first  order  autoregressive  processes  with  non- 
Normal  marginal  distributions.  We  wish  to  study,  say,  eight  sample  sizes,  from  20  to 
5000,  and  we  want  to  know  how  these  estimators  behave  w'hen  the  true  values  of  the 
serial  correlation  take  values  of  -0.9,  0.9,  and  0.0.  Since  we  know  the  correlations  of  the 
random  samples  we  generate,  we  can  compare  these  estimators  to  each  other,  and  also 
to  the  known  values  of  the  correlation.  The  number  of  simulations  required  to  provide 
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only  one  realization  of  our  estimators  for  each  consideration  is  clearly  the  product  of  the 
number  of  each  of  the  factors,  or  480.  This  would  be  an  intractable  process  without 
some  organized  approach  to  perform  some  of  these  runs  as  a  batch.  Further,  in  order 
to  assess  the  variability  in  these  results  we  wish  to  repeat  the  entire  overall  simulation  a 
number  of  times.  Not  only  does  this  represent  a  significant  computing  requirement,  but 
some  type  of  compact  organization  of  the  output  is  required  for  analyses  and  compar¬ 
isons  to  be  possible. 

1.  Graphics. 

Graphical  displays  can  portray  a  great  deal  of  information  clearly,  quickly,  and 
in  a  compact  manner.  We  can  use  graphics  and  graphical  symbols  to  combine  the  lo¬ 
cation  and  variation  measures,  like  a  boxplot,  and  we  can  plot  related  data  close  together 
for  quick  comparison.  The  repetitions  performed  to  introduce  stability  (precision)  into 
the  simulation  can  be  combined  into  the  boxplot-type  graph,  with  tables  attached  for 
reference.  This  represents  only  one  way  to  approach  output  analysis,  and  the  exact 
methods  used  depend  on  the  simulations  being  conducted.  For  example,  if  we  are 
comparing  an  estimator's  behavior  under  different  distributions,  we  would  like  a  graph¬ 
ical  representation  which  depicts  each  distribution's  results  together,  so  differences  will 
be  apparent.  This  graphical  approach,  combining  several  of  the  factors  of  the  simulation 
in  one  plot,  is  the  approach  taken  to  output  analysis  with  SIMTBED. 

2.  Regression  and  Asymptotic  Behavior. 

There  are  many  statistical  estimators  in  the  literature  with  claimed  asymptotic 
behavior  with  respect  to  sample  size.  Indeed,  Cramer  proves  that  any  central  moment 
of  a  sample  of  any  population  is  asymptotically  normally  distributed,  and  he  gives  the 
mean  and  variance  as  functions  of  n,  the  sample  size  (Ref  2,  p.  365].  If  we  are  interested 
in  demonstrating  asymptotic  performance  (say,  for  different  distributions),  we  would 
want  the  estimator  plots  arranged  by  sample  size  to  show  trends.  Of  interest  might  be 
the  sample  size  at  which  the  aymptotic  normal  behavior  of  our  estimator  is  apparent, 
which  might  allow  all  types  of  analysis  possible  for  normally  distributed  data  (confidence 
intervals,  etc.).  More  likely,  though,  we  are  interested  in  the  value  of  our  estimator, 
suitably  unbiased,  which  is  approached  as  the  sample  size  gets  very  large.  In  this  situ¬ 
ation,  regression  can  be  applied.  Lewis  and  Orav  present  the  results  of  the  geometric 
expansion  for  the  mean  and  variance  of  central  moment  estimators  (the  delta  method), 
and  further  states  that  these  results  also  apply  well  to  estimators  that  are  not  functions 
of  central  moments  [Ref  1,  p.  VI-35].  In  equation  form,  these  results  are: 
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(2.1) 


m  m 

Var(0J  =  (-^)  +  (-^)  +  (-^)  +  (-^)  +  ...  (2.2) 

m'  m  m  ' 

where  a's,  and  b's,  are  constants,  m  is  the  sample  size,  and  B  is  the  value  of  the  estimator. 
Notice  in  equation  (2.1)  that  the  first  term  is  the  asymptotic  value  of  the  estimator  B  it¬ 
self.  So,  if  we  perform  a  regression  using  these  equations  and  the  appropriate  powers 
of  the  sample  size,  we  can  attain  a  value  and  variance  for  the  estimator  as  it  behaves 
asymptotically.  This  regression  is  the  type  implemented  in  SIMTBED.  With  repetitions 
of  our  simulations  we  can  observe  the  variability  of  the  coefficients  of  the  regression. 
Observe  that  more  sample  sizes  in  the  simulation  design  allow  an  increased  degree  of 
regression,  where  by  degree  we  mean  the  number  of  terms  of  equations  (2.1)  and  (2.2) 
used,  which  typically  have  to  be  truncated  to,  say,  four  or  six  terms. 

E.  HUMAN  FACTORS  AND  INFORMATION  CODING. 

When  referring  to  information  coding,  we  mean  that  the  original  information  has 
been  converted  to  a  new  form,  and  displayed  symbolically,  as  discussed  in  the  human 
factors  industrv’  [Ref  3,  p.  50].  In  our  output  analysis,  there  are  two  forms  of  informa¬ 
tion  coding. 

1.  Graphics. 

The  measures  of  location  and  spread  for  the  statistical  estimator  have  been 
converted  to  a  graphical  representation,  the  widely  used  boxplot.  This  allows  rapid 
comparison  of  different  runs  (estimators,  sample  sizes,  etc.)  based  on  location  and 
spread.  Tables  are  also  used,  for  detailed  reference,  if  needed. 

2.  Simulation  Factors. 

In  the  update  to  SIMTBED  as  part  of  this  thesis,  the  different  estimators  will 
have  their  identity  coded  by  color,  so  that  when  plotted  together,  two  estimators  that 
otherwise  have  identical  simulation  factors  (sample  size,  distribution,  and  parameters) 
will  be  distinguished  by  color  for  comparison.  Further,  as  a  consequence  of  the  simu¬ 
lation  processing,  these  estimator  plots  will  also  be  coded  by  their  position  in  the  graph, 
which  is  not  a  good  form  of  coding.  Sanders  and  .McCormick  compare  these  coding 
dimensions  (color  and  position)  and  others,  and  conclude  that  color  is  the  best  (in  terms 
of  correct  responses),  and  position  is  the  worst  (configuration  is  the  term  used  by  these 
authors  for  position  coding)  [Ref  3,  p.  98).  Nonetheless,  this  makes  it  possible  to  use 
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these  comparisons  on  any  personal  computer  with  a  dot  matrix  printer,  which 
SIMTBED  uses  for  output,  as  well  as  the  newer  color  dot  matrix  printers.  This  direct 
comparison  of  estimators  in  a  simulation  is  an  addition  to  the  capabilities  of  SIMTBED. 

The  stage  is  now  set  to  discuss  the  statistical  simulation  package,  SIMTBED, 
as  updated  by  this  thesis,  its  capabilities,  limitations,  and  method  of  use.  Before  doing 
this  we  note  that  the  philosophy  on  the  design  of  the  original  SIMTBED  was  to  use  line 
printer  graphics  for  portability.  This  goal  can  still  be  achieved  if  color  is  included  in  the 
output  graphics  and  the  widely  available  and  cheap  dot-matrix  printers  are  used  for 
SIMTBED  output. 


III.  SIMTBED. 


This  chapter  discusses  the  package  SIMTBED,  in  currently  available  versions,  and 
the  enhanced  version  created  in  this  thesis  (version  13).  We  discuss  the  SIMTBED  ap¬ 
proach  to  statistical  simulation,  the  output  organization  it  uses,  and  the  updating  to  the 
use  of  color  as  a  SIMTBED  enhancement.  For  a  detailed  description  of  the  details  re¬ 
quired  to  actually  run  SIMTBED,  see  Appendix  A.  Appendix  A  is  designed  to  function 
as  a  user's  guide  for  this  version  of  SIMTBED. 

A.  DESCRIPTION. 

SI.MTBED  is  a  collection  of  FORTRAN'  subroutines  that  perform  the  detailed 
output  analysis  for  statistical  simulations.  The  user  writes  a  driver  program  that  pro¬ 
vides  the  necessar}'  parameters  of  the  simulation,  and  calls  the  SIMTBED  subroutine. 
The  user  also  provides  the  routines  that  generate  the  random  process  and  calculate  the 
statistics  of  interest.  SI.MTBED  performs  a  sectioning  of  the  sample  sizes  the  user 
specifies  and  determines  the  number  of  calls  required  to  each  generating  routine  to 
produce  the  desired  result.  It  then  prepares  all  the  plots  and  output  statistics  from  the 
data  supplied  by  the  generating  routines.  In  this  way,  the  user  focuses  on  the  process 
involved  in  his  simulation,  and  on  the  output  he  receives,  and  is  relieved  from  the  or¬ 
ganization  and  generation  of  the  output  itself  This  present  version  (13)  of  SI.MTBED 
is  designed  to  run  on  the  IB.M  PC/AT  family  of  personal  computers,  when  compiled  by 
any  of  the  currently  popular  FORTRAN  compilers.  The  update  to  older  versions  of 
SIMTBED  that  produced  this  version  (13)  includes  the  capability  to  produce  combined 
plots  of  the  user-supplied  estimators,  in  color,  and  an  increase  in  the  number  of  estima¬ 
tors  SIMTBED  can  process.  The  older  versions  could  only  process  three  estimators. 
The  graphics  used  by  SI.MTBED,  called  line  printer  graphics,  uses  the  dot  matrix  printer 
and  its  characters,  in  compressed-type  mode,  to  produce  the  plots. 

B.  HISTORY. 

SIMTBED  originated  with  a  mainframe  version  written  by  Lewis,  Orav  and  Uribe 
in  1981.  This  was  ported  to  and  improved  upon  in  a  PC  version  in  a  Naval  Postgraduate 
School  Thesis  by  Hans-Walter  Drueg  [Ref  4j.  In  this  work,  Drueg  produced  the  first 
PC  version  of  SI.MTBED,  with  applications  to  statistics.  His  work  was  based  on  the 
regression  methods  of  Lewis  and  Heidelberger  (Ref  5]  and  the  graphical  approach  used 
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by  Linnebur  in  the  program  RAGE  [Ref.  6].  Since  then,  numerous  updates  have  been 
incorporated  by  the  Naval  Postgraduate  School  simulation  community,  most  notably 
by  L.  Uribe,  and  P.  A.  W.  Lewis.  Updates  to  SIMTBED  include: 

•  Addition  of  percentile  and  quantile  plots  for  each  estimator. 

•  Computation  of  Mean  Squared  Error  (MSE),  when  known  values  are  input. 

•  Bivariate  histograms  to  show  relationships  between  pairs  of  estimators  with  respect 
to  sample  size. 

•  Super>replications  to  provide  precision/variability  information  on  all  the 
SIMTBED  statistics. 

•  A  restart  capability  for  long  simulations,  allowing  a  simulation  to  be  performed  as 
a  series  of  super-replications,  with  each  series  building  on  the  ones  before. 

•  Most  recently,  the  use  of  color  printers  to  provide  combined  plots  of  estimators 
(the  work  of  this  thesis). 

•  Even  more  recently,  a  mainframe  version  utilizing  laser  printer  technology,  with 
even  more  capability  (restricted  to  mainframe  use). 

Appendix  D,  the  SIMTBED  source  listing,  has  comments  at  the  beginning  which 
also  portray  the  historical  development  of  the  program. 

SIMTBED  has  been  incorporated  into  the  Advanced  Statistical  Package,  a  pub¬ 
lished  software  package  from  P.  A.  W.  Lewis  (as  SMTBPC).  The  manual  from  that 
package  has  been  used  in  courses  in  simulation  at  the  Naval  Postgraduate  School  [Ref 
7]. 

C.  THE  APPROACH  OF  SIMTBED. 

SIMTBED  views  each  estimator  (represented  by  a  generating  subroutine  passed  to 
SIMTBED  with  all  other  parameters)  as  a  separate  simulation  run,  and  performs  all  the 
analysis  on  each  estimator  in  turn  (see  Figure  L).  The  capability  added  with  this  thesis 
consists  of  the  color  combined  plots  at  the  end  of  the  SIMTBED  processing.  (Refer  to 
Appendix  B  for  a  discussion  of  the  programming  aspects  of  color  printing  with 
SIMTBED.)  If  combined  color-coded  plots  of  up  to  five  estimators  are  requested  at  the 
completion  of  the  simulation  experiment,  the  data  needed  from  each  estimator's  simu¬ 
lation  is  kept  until  the  end  for  preparation  of  the  combined  plots.  Otherwise,  each  esti¬ 
mator  is  completely  processed  in  sequence.  Up  to  five  estimators  can  be  processed  in 
one  run  of  SIMTBED  (each  represented  by  a  generating  subroutine).  This  is  an  im¬ 
proved  capability  in  that  more  estimators  can  be  studied,  and  the  results  can  be  com¬ 
pared  at  the  finish,  graphically,  in  color. 
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Figure  1.  SIMTBED  Processing  Flowchart 


1.  Sectioning  to  Conduct  Simulations. 

a.  Major  parameters  description. 

In  addition  to  routine  parameters  (number  of  estimators,  subroutine  names, 
etc.),  SIMTBED  must  have  information  on  the  sample  sizes  that  are  to  be  used  for  the 
estimators,  i.e.,  the  sample  sizes  for  which  the  properties  of  the  estimator  are  to  be  ex¬ 
amined.  These  are  referred  to  as  "sub-sample  sizes,"  because  the  "sample  size"  refers  to 
the  global  sample  size  from  which  each  of  the  sub-samples  is  sectioned.  We  use  "N"  to 
represent  this  global  sample  size,  and  "XE(*)"  to  represent  the  sub-sample  sizes,  since 
they  are  passed  in  an  array  (from  1  to  8  sub-samples  are  possible).  Further,  a  number 
of  replications  of  each  sub-sample  size  may  be  performed,  in  order  to  observe  the  vari¬ 
ability  in  the  regression  performed  on  the  values  of  the  estimators  (see  Chapter  2,  Sec¬ 
tion  D.2).  This  is  deno  ":d  by  "M".  These  are  the  three  major  parameters  affecting  the 
simulation.  The  global  sample  size  N  is  a  function  of  the  available  memoiy^  of  the  ma¬ 
chine  being  used. 

b.  Performing  a  simulation  by  sectioning. 

Consider  this  example.  Given  a  sample  size,  N,  of  5000,  a  replication  value, 
-M,  of  20.  and  a  sub-sample  size,  NE(1),  of  20,  SIMTBED  will  proceed  as  follows.  The 
sample  space  for  the  5000  values  of  data  from  which  the  estimators  can  be  computed 
will  be  divided  up  into  groups  of  size  20,  so  there  will  be  (5000  20)  =  250  evaluations 
of  the  estimator,  each  based  on  a  separate,  independent  sample  of  size  20.  This  will  be 
repeated  .M  times,  so  there  will  be  5000  evaluations  of  the  estimator,  based  on  a  sample 
of  size  20.  This  is  the  way  SIMTBED  sections  to  produce  the  necessar}'  number  of 
evaluations  based  on  the  desired  sample  size.  .Machine  memory  storage  must  be  avail¬ 
able  for  (N  X  M)  NE(1)  variables  in  an  array. 

This  process  is  independent  of  the  estimator  subroutine.  For  e.xample,  if 
our  estimator  were  the  coefficient  of  variation  of  an  exponential!/)  distribution, 
SI.MTBED  would  call  that  routine  250  separate  times,  and  pass  a  new  sample  size  of  20 
from  which  to  compute  the  estimate  of  coefficient  of  variation.  The  data  generator 
routine  would  generate  the  random  variables  and  compute  the  coefficient  of  variation. 
This  process  would  repeat  for  each  of  the  other  (as  many  as  eight  total)  sub-sample  sizes, 
and  if  requested,  a  regression  would  be  performed  on  the  means  of  each  of  the  sub¬ 
sample  realizations  of  the  estimator.  This  regression  process  is  replicated  M  times  to 
estimate  the  variability  of  the  regression  coefficients.  See  Chapter  2.  Section  D.2,  and 
Appendix  .A  for  more  on  the  regression  performed  by  SIMTBED. 
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2.  Super-Replications. 

As  each  estimator  is  processed  it  turn,  it  is  possible  to  perform  the  entire  sec¬ 
tioning  process  for  that  estimator  a  specified  number  of  times.  These  are  referred  to  as 
super-replications,  and  allow  the  experimenter  to  evaluate  variability  and  precision  in¬ 
formation  about  all  of  the  results  presented  for  one  iteration  of  the  simulation  process. 
For  example,  one  replication  will  yield  a  single  value  of  the  asymptotic  expected  value 
of  the  estimator  being  simulated  (from  Equation  2.1).  The  number  of  replications 
specified  in  the  simulation  allow  estimating  the  spread  of  these  coefficients  of  the  re¬ 
gression,  but  still  only  one  value  is  obtained.  To  obtain  more  realizations  of  this  ex¬ 
pected  value,  super-replications  can  be  performed,  and  then  tests  for  normality  (i.e., 
quantile  plots,  etc.)  can  be  performed  for  validity.  These  super-replications,  being  inde¬ 
pendent,  should  be  normally  distributed  about  the  true  estimator  value,  from  the  central 
limit  theorem.  SIMTBED  performs  these  super-replications  as  specified  by  parameters 
when  SIMTBED  is  called.  All  super-replications  for  one  estimator  are  performed  before 
the  next  estimator  in  the  chain  is  processed.  It  is  possible  to  obtain  repeated  output 
graphs  for  the  first  three  of  these  super-replications,  to  check  the  simulation;  thereafter, 
SIMTBED  generates  a  summary  table  and  optionally  a  normalized  quantile  plot  (see 
section  D). 

3.  Combined  Plots  in  Color. 

At  the  completion  of  simulation  for  all  estimators,  a  plot  of  some  of  the  infor¬ 
mation  from  each  estimator  in  the  chain  that  was  processed  can  be  generated.  This 
amounts  to  plotting  together  some  of  the  bo.xplots  describing  each  estimator,  with  each 
a  different  color,  aiding  comparison  of  the  behavior  of  the  estimators  relative  to  each 
other.  While  not  a  substitute  for  comparing  tabulated  values  (such  as  mean  squared 
errors,  standard  deviations,  and  means),  this  type  of  graphical  comparison  can  provide 
meaningful  information  that  could  otherwise  be  hidden  in  the  tabled  values  of  the  out¬ 
put.  Analysis  of  the  large  volume  of  output  produced  in  these  types  of  simulations  is 
thus  aided  by  these  types  of  graphical  comparison,  w'hich  can  provide  a  wealth  of  infor¬ 
mation  at  a  glance. 

4.  Restart  and  Other  File  Operations. 

Due  to  the  lack  of  good  analytical  form  for  the  behavior  of  the  estimators  in 
these  types  of  simulations,  the  amount  of  repetition  (super-replications)  required  to  get 
a  specified  degree  of  precision  (writh  respect  to  asymptotic  performance)  or  a  low  enough 
variance  (say,  in  the  mean  value)  may  not  be  known  until  it  is  reached.  Rather  than 
keep  repeating  the  simulation  with  larger  and  larger  parameters,  SIMTBED  will  use  data 
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files  to  store  the  results  of  the  super-replications,  and  subsequent  super-replications  can 
use  the  results  from  previous  runs  as  though  they  had  just  been  obtained.  This  allows 
the  user  to  'build  up'  his  simulation  until  the  values  obtained  have  the  needed  precision, 
or  until  the  required  convergence/divergence  or  bias  is  seen.  It  may  also  be  useful  to 
have  these  results  for  processing  by  another  package,  or  for  record-keeping.  SIMTBED 
can  also  perform  this  function  with  an  output  file.  Refer  to  Appendix  A  for  the  actual 
use  of  these  features. 

5.  A  Variance  Reduction  Technique. 

One  popular  technique  that  can  be  used  to  reduce  the  variability  in  the  results 
of  a  statistical  simulation  is  to  use  the  same  random  number  stream  for  each  estimator 
in  the  simulation  [Ref  1,  p.  VI 1-24).  Thus,  each  estimator  operates  on  the  same  series 
of  random  numbers,  instead  of  on  separate  streams  of  random  numbers,  and  the  vari¬ 
ability  between  different  estimators  that  would  be  introduced  by  differing  random  num¬ 
ber  streams  is  reduced  to  only  the  variability  introduced  by  the  behavior  of  the 
estimators,  as  they  are  applied  to  the  samples  through  the  sectioning  and  replication 
process.  This  is  accompished  in  SIMTBED  with  the  random  number  seeds  used  to  begin 
the  generation  of  the  pseudo-random  numbers  (see  Appendix  A  for  a  detailed  de¬ 
scription  of  the  SIMTBED  parameters). 

D.  SIMTBED  OUTPUT  AND  STATISTICS. 

I.  The  Basic  SIMTBED  Plot. 

Figure  2  represents  the  basic  SIMTBED  plot,  a  series  of  boxplots  for  each 
sub-sample  size,  representing  the  simulation  for  one  estimator.! 

Included  in  the  boxplot  for  each  sub-sample  size  are  (M  x  N),  NE  evaluations  of  an  es¬ 
timator.  If  regression  is  performed,  the  regression  asymptote  is  also  plotted.  To  facili¬ 
tate  plotting  the  regression  line,  the  sub-samples  are  placed  according  to  their  value  (i.e., 
the  axis  is  scaled  based  on  the  sub-sample  values).  The  following  statistics  are  listed  in 
tabular  form  for  each  sub-sample  size;  the  first  four  central  moments,  the  standard  error 
of  the  mean,  and  (optionally)  the  mean  squared  error.  The  coefficients  of  the  regression 
equation  are  also  listed.  The  estimator  name  appears  at  the  bottom  of  the  plot. 

a.  An  Example  of  Generating  the  Estimators, 

In  the  example  of  Figure  2,  we  have  generated  Normal,  AR(1)  (autoregressive)  time  se¬ 
ries  with  mean  zero  and  variance  4,  and  the  successive  values  of  the  time  series  are 

1  These  plots  have  been  reduced  for  enclosure  in  the  thesis.  They  are  normally  full-sized. 
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Figure  2.  Sample  SIMTBED  Simulation. 
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correlated  with  correlation  coefficient  p  =  0.9.  The  estimator  is  the  familiar  moment 
estimator  of  serial  correlation: 


A 

P 


NE-l 

Y^ix,  -  -  x) 

1=1 _ 

NE 

1=1 


where  x  is  the  mean  of  the  NE  observations  in  the  estimator. 

Thus,  we  know  the  properties  of  the  generated  random  number  stream  and 
we  are  observing  the  behavior  of  the  estimator  p.  Figure  2  shows  that  the  simulation 
was  performed  for  each  of  8  subsample  sizes,  ranging  from  20  to  500,  and  6000  random 
variates  were  used  to  simulate  each  subsample  size,  and  this  was  repeated  20  times  to 
assess  the  precision  of  the  regression  coefficients.  So,  for  example,  for  subsample  size 
100,  the  number  of  evaluations  of  p  is  given  by: 


6000  X  20 
100 


1200 


These  1200  evaluations  of  p  were  obtained  by  proceeding  as  follows.  The 
sample  space  of  6000  generated  data  values  of  the  time  series  is  sectioned  into  batches 
of  size  100  {the  subsample  size  in  this  example).  For  each  section,  one  value  of  the  es¬ 
timator  is  computed.  This  sectioning  is  then  replicated  20  limes  (M  =  20),  which  yields 
60  X  20  =  1200  evaluations  of  the  estimator  at  subsample  size  100.  From  Figure  2,  the 
values  of  the  moments  computed  below  the  column  labeled  100'  are  thus  based  on  1200 
evaluations  of  p. 

b.  Subsample  Statistics. 

Continuing  with  subsample  size  100  as  an  example  from  Figure  2,  the  mean, 
standard  deviation,  standard  deviation  of  the  mean,  mean  squared  error,  and  the  higher 
moments  (coefficients  of  skewness  and  kurtosis  using  unbiased  expressions)  are  com¬ 
puted,  using  all  1200  evaluations  of  p.  The  theoretical  standard  error  of  the  correlation 
estimate  can  be  seen  to  follow  the  behavior  given  by: 

^  ^  -  sample  S.D.  of  the  estimates  of  the  correlation 

S.D.  MEAN  =  - - - = -  , 

yjn 
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where  he’^e  n  is  the  total  number  of  estimates  of  serial  correlation  used.  For  subsample 
size  100,  the  standard  deviation  of  the  average  of  the  1200  estimates  of  the  serial  corre¬ 
lation  is  estimated  from  the  standard  deviation  of  the  1200  computed  values  of  serial 
correlation.  This  gives 


.06260 
VI 200 


0.001807  . 


Thus  the  mean  value  of  the  estimate  of  p,  namely  0.8829,  is  more  that  two  estimated 
standard  deviations  from  the  known  true  value  p  =  0.9,  indicating  that  the  estimator  is 
still  biased  at  sample  size  100. 

The  mean  squared  error  (.MSE)  is  used  in  this  simulation  since  we  know  the 
value  of  the  estimator  under  study  for  the  sample  we  generated,  i.e.,  we  created  the 
random  number  stream  with  a  correlation  of  0.9.  We  can  thus  measure  how  the  esti¬ 
mator  deviates  from  this  value,  still  considering  its  inherent  variability,  by  using  the 
mean  squared  error  given  by2 

.MSE  =  ^VAR(p)  +  {p-pf  , 


where  p  is  the  average  of  all  the  estimates  p  of  serial  correlation  (the  estimator  under 
study  in  this  example),  p  is  the  known  true  value  of  the  serial  correlation  of  the  time 
series,  and  VAR(p)  is  the  sample  variance  of  the  estimates  of  serial  correlation  (there  are 
1200  of  these  for  sub-sample  size  100  in  this  example).  This  expression  is  realized  by 
considering  that  the  variance  of  the  realized  values  of  the  estimators  (serial  correlation) 
is  the  second  central  moment  about  the  expected  value  of  the  estimator  (E(p),  usually 
estimated  by  p  ),  i.e. 


VAR(p)  =  E(p  -  E(p))' 


where  p  represents  the  estimated  value  of  the  statistical  estimator  under  study  (i.e.,  se¬ 
rial  correlation  in  the  example),  and  p  represents  the  average  of  all  the  observed  values 
of  p  The  expected  value  of  the  estimator,  E(  p  ),  may  in  fact  be  biased,  and  not  at  all 


2  Formula  from  SIMTBED  source  code. 
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approach  the  true  value  p.  So,  the  Mean  Squared  Error  is  used,  as  the  expectation  of 
the  values  of  the  estimator,  p  about  the  true  value  p.  Thus, 

MSE(^)  =  ECp-pf. 

This  Mean  Squared  Error  can  be  thought  of  as  consisting  of  two  parts:  the  variation 
of  the  evaluated  estimators  about  their  average  (their  expected  value),  and  the  variation 
of  this  expected  value  about  the  true  value  p.  Mean  Squared  Error  then  becomes 

MSE(p)  =  VAR(p)  +  (bias)^  , 

with  the  'bias'  term  representing  the  difference  between  the  expectation  of  the  estimator, 
E(p)  and  the  true  value  p,  giving 

MSE(p)  =  VAR{^)  +  (E(p)-p)'. 


Now,  using  p  to  estimate  the  expected  value  of  the  estimator  (serial  correlation  in  the 
example),  E(p),  and  computing  the  expected  value  from  the  evaluations  of  serial  corre¬ 
lation  gives  the  formula  for  computing  the  estimated  Mean  Squared  Error, 


This  becomes 


MSE(p) 


n 

F  ~  +  (p-pf 

1= 1 


1 

2 


MSE  =  yJiVARCp)  +  ip-pf) 


giving  the  formula  used  for  mean  squared  error.3 

If  the  known  values  of  the  estimator  are  not  available  for  the  simulation, 
MSE  is  not  used  (SIM'l'BED  parameter  entries). 
c.  Regression. 

Part  of  the  tabled  information  of  Figure  2  includes  the  regression  coeffi¬ 
cients,  as  discussed  in  Chapter  2.  When  replications  are  performed,  the  variance  and 
standard  deviation  of  the  regression  coefficients  for  the  regression  on  the  means  of  the 
estimator  is  supplied.  In  this  example,  the  degree  of  regression  (the  number  of  terms  of 


3  From  analysis  with  thesis  advisor. 
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equations  2.1  and  2.2  to  be  used)  is  4,  and  the  regression  coefficients  can  be  observed. 
Note  that  if  the  number  of  subsamples  in  the  simulation  is  too  small  (eight  is  a  maxi¬ 
mum,  not  the  required  number),  SIMTBED  will  not  perform  regression.  The  first  value 
listed  in  the  “mean  of  regression  on  averages"  line  in  Figure  2  is  the  estimated  asymptotic 
value  of  the  estimator,  given  by  this  simulation.  Since  the  estimate  of  this  asymptote  is 
0.8929  and  the  true  value  is  0.9,  the  difference  is  0.0071.  The  estimated  standard  devi¬ 
ation  of  the  estimate  of  0.044  (line  labeled  "std  dev  of  regression").  Thus  the  estimate 
0.8929  is  within  2  (estimated)  standard  deviations  of  its  true  value 

Note  that  if  super-replications  were  performed  we  could  obtain  several 
evaluations  of  this  asymptotic  value,  as  well  as  its  average  over  the  number  of  super¬ 
replications  performed. 

d.  Boxplot  Graphics. 

For  each  subsample  size,  a  boxplot  is  provided  which  displays  the  location 
and  spread  behavior  for  all  the  evaluations  of  the  estimator  obtained  for  that  subsample 
size.  Continuing  with  the  current  example,  for  subsample  size  100,  then,  1200  values  of 
p  are  incorporated  into  that  particular  boxplot.  In  Figure  2,  the  boxplots  are  con¬ 
structed  using  reduced  graphics,  which  means  the  extreme  outliers  are  counted  and  dis¬ 
played  at  the  ends  of  the  bo,xplot,  rather  than  actually  plotted,  which  would  occupy 
valuable  scaling  space  on  the  plot.  This  way,  the  majority  of  the  space  is  devoted  to  the 
location  measures  (mean  and  median)  and  the  spread  measure  (inter-quartile  range)  for 
the  graph.  The  asymptote  and  regression  lines  are  also  included  when  regression  is 
performed.  This  way,  the  behavior  of  the  estimator  can  be  observed  with  regard  to 
sample  size.  In  Figure  2,  it  can  be  seen  that  the  moment  estimator  indeed  has  some  bias 
at  the  lower  sample  sizes,  but  that  the  bias  disappears  as  sample  size  increases.  For 
further  analysis  the  user  can  select  the  subsample  sizes  which  will  be  plotted  together  for 
all  the  estimators  in  the  simulation  in  the  combined  color  plot  at  the  end  of  the  simu¬ 
lation  run.  Also  of  note  is  that  this  boxplot  graph  is  only  one  realization  of  the  data  that 
is  incorporated  into  super-replications.  Up  to  three  consecutive  plots  like  Figure  2  can 
be  prepared  when  super-replications  are  used,  each  an  iteration  itself. 

2.  Quantile  Plots. 

Figure  3  depicts  the  second  SIMTBED  plot  produced  as  each  estimator  is 
processed.  It  consists  of  the  empirical  quantiles  of  the  estimator  at  each  subsample  size, 
with  each  quantile  represented  by  a  symbol.  A  table  below  the  plot  lists  the  actual  val¬ 
ues.  This  plot  can  be  seen  to  correspond  exactly  with  the  boxplots  of  Figure  2.  It  is 
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merely  a  more  detailed  representation  of  the  data.  Here,  the  tails  of  the  estimator  dis¬ 
tribution  can  be  examined  for  symmetry,  etc. 

3.  Super-replications  Output. 

When  super-replications  are  used,  a  summary  quantile  plot,  like  that  in  Figure 
4,  is  prepared,  along  with  a  tabulated  summary  (Figure  5).  Figure  4  is  an  example 
super-replication  quantile  plot.  This  plot  is  rather  self-explanator>’,  beyond  the  fact  that 
it  consists  of  the  quantiles  of  each  iteration  of  the  basic  SIMTBED  plot  discussed  above. 
In  other  words,  in  Figure  4,  there  are  three  values  of  the  0.5  quantile  averaged  and 
plotted  with  an  'M';  these  quantiles  are  part  of  the  table  of  summary  statistics  for  all 
super-replications,  an  example  of  which  appears  in  Figure  5.  Note  here  that  all  the 
statistics  included  in  the  basic  plot  are  present,  and  that  each  has  an  associated  standard 
deviation,  obtained  by  repeating  the  entire  simulation  experiment.  This  procedure  can 
be  carried  on  indefinitely  by  the  use  of  the  restart  facility.  When  restart  is  used,  the 
previous  values  are  saved  in  a  file,  and  all  previous  data  is  used  to  prepare  the  most  re¬ 
cent  super-replications  summary  table  and  plot.  Refering  to  Figure  5,  we  can  see  the 
mean  of  regression  on  averages  entiy,  which  is  a  list  of  the  regression  coefficients,  and 
we  see  the  moment  estimator  asymptotically  tending  to  0.8991,  which  would  indicate 
asymptotic  unbiasedness  for  this  estimator,  given  that  the  largest  sample  size  used  was 
500,  and  the  number  of  super-replications  used  here  was  3.  This  would  indicate 
convergance  to  the  known  value  of  0.9  for  this  estimator.  In  the  next  chapter  we  will 
see  the  behavior  as  the  super-replications  are  carried  out  much  further. 

4.  Color  Combined  Estimator  Plots. 

After  the  simulation  run  has  proceeded  through  all  super-replications  of  as 
many  as  five  statistical  estimators,  we  may  be  interested  in  how'  the  estimators  compare 
to  each  other.  This  plot  was  incorporated  into  SIMTBED  for  that  purpose.  Figure  6 
is  an  example  of  four  estimators  of  serial  correlation,  all  plotted  together,  for  three  of  the 
eight  subsample  sizes  of  the  simulation.  Note  that  the  group  of  boxplots  (each  con¬ 
taining  four  boxplots,  one  for  each  estimator)  is  positioned  with  respect  to  the  second 
one  in  the  group.  Note  also  that  the  plots  are  coded  dually,  as  discussed  in  Chapter  1, 
Section  E.  That  is,  they  are  coded  by  color  and  position.  The  names  of  the  estimators 
appear  at  the  bottom  of  the  plot.  Estimator  1,  the  robust  least  squares  approach  to  se¬ 
rial  correlation,  is  the  first  in  each  group  for  the  three  subsamples.  All  estimators  are 
applied  to  the  same  distribution  and  their  behavior  can  be  directly  compared.  Referring 
to  Figure  6.  one  can  observe  that  for  small  sample  sizes,  the  robust  least  squares  esti¬ 
mator  has  the  best  behavior  in  terms  of  bias.  Note  that  the  samples  come  from  the 
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Figure  5.  Sample  SIMTBED  Super-replication  Summary  Statistics. 
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Normal  AR{1)  data.  The  next  chapter  will  demonstrate  that  this  good  behavior  of  the 
robust  estimator  does  not  hold  for  other  types  of  time  series,  but  the  point  here  is  that 
with  this  combined  estimator  plot,  the  behavior  is  readily  apparent,  and  though  all  the 
tabulated  data  from  the  entire  simulation  is  available  for  review,  this  information  is  ap¬ 
parent  from  an  immediate  glance  at  this  type  of  plot.  Thus,  the  effort  required  to  per¬ 
form  output  analysis  from  the  multi-factor  statistical  simulation  has  been  significantly 
reduced  through  the  use  of  color  and  graphical  displays  of  the  simulation  results. 

5.  Multi-Factor  Simulations  With  SIMTBED. 

Chapter  II  discussed  the  multi-factor  aspects  of  statistical  simulations,  and  this 
section  discusses  how  they  can  be  addressed  using  SIMTBED.  There  is  a  direct  appli¬ 
cation  of  the  simulation  factor  sample  size  to  the  SIMTBED  package.  The  SIMTBED 
subsample  size  becomes  the  sample  size  factor.  With  Sl.MTBED,  there  are  five  estima¬ 
tors  possible,  and  there  are  three  other  factors  involved  in  any  common  statistical  sim¬ 
ulation:  estimator  used,  distribution  of  the  samples,  and  parameters  of  that  distribution. 
Thus,  the  estimator  parameter  of  SIMTBED  can  be  used  to  express  any  one  of  these 
remaining  three  factors,  leaving  two  factors  that  will  require  multiple  runs  of  the 
SIMTBED  simulation.  This  still  represents  a  great  reduction  in  the  amount  of  separate 
work  required.  For  example,  in  the  next  section  we  will  use  four  of  the  five  positions 
of  SIMTBED  to  represent  the  estimator  used,  and  then  SIMTBED  will  be  run  for  dif¬ 
fering  combinations  of  distribution  and  parameter  (e.g.,  Normal(0,l)  p  =  0.0,  0.9,  and 
-0.9).  When  SIMTBED  is  run  on  the  common  personal  computer,  all  one  need  do  is 
execute  Sl.MTBED  in  parallel  on  several  available  machines,  and  the  multi-factor  simu¬ 
lation  is  completed.  Actually,  we  are  using  the  personal  computer  itself  to  apply  one 
factor  of  the  simulation.  That  w’as  the  approach  taken  for  the  application  presented  in 
the  next  chapter. 
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Figure  6.  Sample  SIMTBED  Color  Combined  Estimator  Plots. 
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IV.  ANALYSIS  OF  LAG-1  SERIAL  CORRELATION 


The  purpose  of  this  chapter  is  twofold:  to  provide  a  demonstration  of  statistical 
simulation  using  SIMTBED,  and  also  to  provide  some  simulation  results  for  some  esti¬ 
mators  of  serial  correlation  gathered  from  the  literature.  Some  of  these  estimators  differ 
from  the  standard  ones  in  that  they  have  varying  degrees  of  robustness  claimed  for  them, 
and  so  we  wiH  run  simulations  to  demonstrate  this,  or  the  lack  of  this  robustness.  By 
robustness,  we  mean  the  ability  to  produce  nearly  correct  or  unbiased  estimates  of  the 
actual  serial  correlation  when  the  underlying  marginal  distribution  of  the  data  is  no 
longer  the  Normal  distribution,  and  the  time  series  are  not  linear  AR(1)  processes.  With 
that  in  mind,  the  choice  of  distributions  and  time  series  to  be  used  is  made.  We  begin 
with  a  description  of  the  estimators  of  lag-1  serial  correlation  that  are  compared,  fol¬ 
lowed  by  a  discussion  of  the  distributions,  parameters  and  processes  chosen.  The  results 
of  these  simulations,  run  with  SIMTBED  on  the  PC  are  then  discussed. 

A.  THE  ESTIMATORS. 

For  this  simulation  experiment,  we  have  available  four  estimators  of  the  serial  cor¬ 
relation  of  a  random  process  (random  number  stream).  These  are: 

•  The  moment  estimator.  This  is  the  most  widely  known  and  used  estimator  of  serial 
correlation  in  a  time  series,  and  so  is  included  here.  It  is  a  non-parametric  estima¬ 
tor. 

•  The  Maximum  Liklihood  Estimator.  Also  called  the  Priestley  estimator.  Some¬ 
what  more  involved  computationally,  and  its  derivation  depends  on  the  explicit 
assumption  that  the  data  comes  from  a  Normal,  linear  autoregressive  (AR(I))  time 
series. 

•  The  Cressie  estimator.  Cann  ing  the  name  of  Noel  Cressie,  this  estimator  has  the 
potential  for  robustness  because  of  its  choice  of  the  median  as  the  measure  of  lo¬ 
cation,  rather  that  the  more  common  mean. 

•  Robust  Least  Squares  Regression.  Also  called  Iterated  Weighted  Least  Squares 
(IWLS),  this  method  has  appeal  in  its  purported  ability  to  reduce  regression  errors 
in  successive  passes,  but  the  choice  of  the  weighting  function  must  be  made,  and 
it  can  be  computationally  intense. 

Each  of  these  estimators  is  discussed  in  greater  detail  below. 

1.  The  Moment  Estimator. 

This  estimator  has  a  form  that  is  analogous  to  that  for  the  correlation  coeffi¬ 
cient  for  two  samples  given  in  any  statistics  textbook,  except  that  the  tw'o  samples  are 
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actually  the  members  of  only  one  sample,  but  offset  by  one  index,  i.e.,  the  data  is  ob¬ 
tained  from  a  time  series  (discrete  parameter  stochastic  process).  This  yields,  from  the 
Lewis  and  Orav  text  on  simulation  methodology  [Ref.  I,  p.  VIII-57]  the  following  esti¬ 
mator  for  the  lag  one  serial  correlation.  The  correlation  coefficient  of  lag  one  is  defined 


/3(1)  = 


/Var(A;)Var(A,.„) 


E[X,X,^,]-E[XJE[X,^J 

VVar(^,)Var(J,+,) 


For  stationary  time  series,  the  correlation  coefficient  is  independent  of  time  (serial 
number),  and  the  moment  estimator  becomes 


Pm  — 


n-\ 

nY^{X,-X)iXi^,-X) 

/=! _ 

n 

(n-l)^(A',-I)' 


The  term  moment  estimator  is  used  for  this  estimator  because  the  arithmetic  mean  x  is 
used  to  estimate  ECA”]  and  the  usual  moment  estimator  is  used  for  E[X,X,^,].  In  fact, 
though,  the  estimator  used  in  this  simulation  is  the  form  of  equation  (4.1)  with  the  (n-1) 
bias  term  in  the  denominator  replaced  by  (n),  which  yields  the  computational  form  re¬ 
ferred  to  by  Lewis  and  Orav  as  the  Yule-Walker  estimator  [Ref.  1,  p.  VI 11-56]: 


A  <=l 

Pm  — 


n~i 

Y}X,-X){Xi^,-X) 

i=\ _ 

n 

YjiXi-xf 


Again,  this  estimator  is  widely  used  for  estimating  serial  correlation,  and  as  will  be  seen, 
has  good  asymptotic  properties  as  sample  size  increases  (depending  on  the  underlying 
distribution),  but  can  have  significant  small-sample  bias,  especially  with  time  series 
whose  marginal  distributions  are  markedly  different  from  the  Normal  distribution. 


2.  The  Priestley  (conditional  M.L.E.)  Estimator. 

This  estimator  is  put  forth  as  the  conditional  Maximum  Liklihood  Estimator 
(MLE),  also  called  for  convenience  the  Priestley  estimator  of  lag-1  serial  correlation 
[Ref  8].  It  also  has  good  asymptotic  properties,  as  well  as  the  problem  of  small-sample 
bias,  as  the  simulations  will  demonstrate.  The  estimator  is 


A 

PiMLE  = 


(4.3) 


where 


[(A-B)  +  (n-l)i;,)(J(2)-J(,))]  ’ 


and 


Average  over  first  (n— 1)  observations 
in  the  time  series  of  length  n 


Average  over  last  (n— 1)  observations 
in  the  time  series  of  length  n 


and 


A  = 


n— 1 


<=1 


and  finally, 


B 


1=1 
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3.  The  Cressie  Estimator. 

This  interesting  estimator  of  lag- 1  serial  correlation  has  vague  sources.  It  was 
obtained  by  personal  communication  with  Cressie  by  Professor  Levris.  The  estimator  is 


A 

PCR 


X 

2 


N-\ 

1-1 _ 

A-l 

1=1 


(4.4) 


where  X  is  the  median  of  the  sample.  One  can  only  comment  and  speculate  on  the  be¬ 
havior  of  this  estimator.  Lacking  analytical  results,  we  resort  to  statistical  simulation 
to  observe  its  behavior. 

B.  ROBUST  REGRESSION  TO  ESTIMATE  SERIAL  CORRELATION. 

We  start  here  by  presenting  the  Normal  autoregressive  lag-1  model  (AR(1)).  and 
then  show  that  normal  regression  yields  the  usual  estimate  for  p  discussed  in  section  A.  1 
above.  Then  the  Iterated  Weighted  Least  Squares  (IWLS)  procedure  is  presented,  with 
a  short  discussion  concerning  the  literature. 

In  the  Normal  (Gaussian)  AR(1)  model,  the  observations  are  determined  from 
the  previous  jt*.  the  correlation  coefficient  p,  and  a  random  deviation  that  can  be  Normal 
or  non-Normal  (it  is  Normal  for  the  Normal  model).4  Thus, 

•^/+i  =  px,  +  ci.  (4.5) 


This  is  referred  to  by  Denby  and  .Martin  as  the  "Innovations  Outlier  Model  (10)"[Ref 
9,  p.  140].  They  also  describe  an  "Additive  Effects  Outlier  Model  (AO),"  but  that  will 
not  be  pursued  here.  The  model  (4.5)  is  the  approach  taken  to  generate  correlated 
Normal  random  streams,  as  will  be  discussed  presently.  If  one  wishes  to  assume  the  c 
in  Equation  (4.5)  are  normally  distributed  with  mean  zero,  and  standard  deviation  a, 
then  a  zero-intercept  regression  model  can  be  applied,  and  shown  to  yield  the  moment 
estimator  above.  It  is  when  this  assumption  of  normality  is  not  applicable  that  iterating 
the  least  squares  procedure  with  weighting  functions  can  be  interesting.  Thus,  using  the 
matrix  notation  adopted  in  the  study  of  linear  regression,  we  can  restate  the  10  model 
as: 


4  This  model  was  introduced  to  me  by  P.A.W.  Lewis,  but  also  appears  in  [Ref.  9  ,  p.  140j. 
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Y 


p  X  +  c 


(4.6) 


where  Y  is  the  vector  of  the  last  N-1  members  of  the  random  number  stream,  and  X  is 
the  vector  of  the  first  N-1  members.  Thus,  we  are  regressing  the  random  stream  against 
itself,  offset  by  one  element.  Using  the  matrix  solution  to  the  least  squares  regression 
procedure;5 

p  =  (X^X)-’  X'^Y. 

This  yields,  for  the  10  model  above: 


This  formula  actually  uses  the  fact  that  we  know  in  the  simulation  that  the  mean 
value  of  the  Xj,  is  zero.  The  sample  mean  would  normally  be  subtracted  from  the  data, 
as  in  Equation  4.2,  but  this  is  generally  a  second  order  effect.  The  above  formula  is  ac¬ 
tually  the  starting  solution  used  in  the  IWLS  procedure.  From  this  estimate  of  p,  the 
residuals  are  computed,  from  Equation  4.6,  by  substituting  p  for  p  and  inverting  the 
(linear)  equation.  A  weighting  function  is  then  applied  to  the  residuals,  and  the  weights 
are  multiplied  onto  the  original  data  points.  A  data  point  which  gave  a  small  residual 
will  produce  a  larger  weight,  and  points  which  produced  large  residuals  will  yield  smaller 
weights,  even  to  the  point  of  deletion  from  the  regression  for  extreme  outliers.  The 
scaling  constant  helps  determine  these  aspects  of  the  weights.  The  regression  is  then 
repeated,  yielding  a  better  estimate  of  p,  in  terms  of  the  residuals.  This  is  briefly  dis¬ 
cussed  by  Weisberg  [Ref  10,  p.  87],  but  is  presented  in  more  detail  by  Beaton  and  Tukey 
IRef  11,  pp.  151-152].  These  authors  refer  to  this  estimation  procedure  as  "w-estimates." 
being  multiple  steps  of  "m-estimates."  The  common  least  squares  weighting  function, 
the  "bi-square"  function,  given  by 

5  From  course  notes,  OA3103,  Prof.  Larson,  Spring  1987. 
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w{u) 


(1  —  for  |w|  ^  1 

0  else 


(4.7) 


is  used  to  determine  the  weight  for  the  next  step  of  the  regression,  based  on  the  value 
of  the  residuals.  The  arguments  for  this  function  in  the  IWLS  procedure  are  the  resi¬ 
duals  calculated  from  the  previous  regression  step,  using  the  last  estimate  for  p.  The 
median,  denoted  here  by  S,  multiplied  by  a  scaling  constant,  c  (chosen  to  provide  good 
performance  of  the  IWLS  method),  is  used  to  scale  the  residuals.  Thus,  the  argument 
u  for  Equation  4.7  becomes 


with  r,  denoting  the  residuals,  S  the  median  of  the  data,  and  c,  the  scaling  constant, 
usually  taking  a  value  of  4.2  or  6.  [Ref  1 1,  p.  151]  In  addition,  Denby  and  Martin  chose 
to  divide  the  median  by  another  factor  of  0.6745,  for  reasons  not  stated.  We  ran  a 
simulation  with  and  without  this  factor,  and  chose  the  standard  approach,  without  the 
additional  scaling  factor. 

The  procedure  just  described  is  also  known  as  robust  regression.  Indeed,  in  the 
International  Mathematics  and  Statistics  Library  of  FORTRAN  subroutines  (IMSL) 
implemented  on  the  mainframe  computer  at  the  Naval  Postgraduate  School,  there  is  a 
subroutine  which  accomplishes  this  regression.6  Since  the  source  code  is  available  for 
these  routines,  it  was  incorporated  into  the  SIMTBED  simulation  experiment  carried 
out  with  this  research.  The  weighting  function  used  there  is  the  bisquare  weighting 
function  just  described. 

Robust  regression  needs  a  stopping  rule.  A  comparison  of  the  latest  estimated  value 
of  p  with  the  last  estimated  value  can  be  used.  When  there  is  only  slight  change  the  re¬ 
gression  can  be  halted.  Additionally,  a  maximum  number  of  iterations  can  also  be 
specified. 

This  robust  regression  approach  to  serial  correlation  is  applied  in  this  simulation  to 
both  Normal  and  non-Normal  distributions.  In  their  paper  on  robust  estimation  of  se¬ 
rial  correlation,  Denby  and  Martin  refer  to  "M-estimates"  and  "GM-estimates",  or  gen¬ 
eralized  M-estimates,  depending  on  the  choice  and  number  of  the  weighting  functions 

6  All  IMSL  routines  have  source  code  available  through  the  LIBSOL'RCE  utility  of  the 
VM,  CMS  mainframe  operating  system. 
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used  [Ref.  9,  p.  141].  This  regression  approach,  which  is  applied  to  their  "10"  model,  is 
an  "M-estimate",  due  to  the  choice  of  one  weighting  function,  and  the  use  of  the 
"rescending  Tukey  bisquare  influence  function".  According  to  Denby  and  Martin, 

As  we  show  subsequently,  is  highly  robust  in  terms  of  efiiency  for  good  choices 
of  when  model  lO  holds,  but  has  an  asymptotic  bias  which  can  be  as  cat- 
astropliic  as  that  of  the  least  squares  estimate  for  Model  AO.  [Ref  9  ,  p.  141]. 

This  simulation  attempts  to  compare  these  biases,  restricted  to  the  lO  model,  in  addition 
to  the  behavior  of  the  other  estimators  described.  The  distributions  and  random  proc¬ 
esses  used  will  be  discussed  below. 

C.  DISTRIBUTIONS  USED, 

Two  different  distributions  were  used  in  this  simulation  for  marginal  distributions 
of  the  processes.  The  first  is  the  Normal  distribution,  with  mean  zero,  and  variance  four, 
i.e.  N(0,4),  and  the  second  is  the  /-Laplace  distribution,  with  parameter  /..  The  processes 
with  these  marginal  distributions  are  discussed  below. 

1.  The  Normal  distribution. 

Creating  correlated  random  number  streams  that  are  marginally  Normally  dis¬ 
tributed  involves  a  simple  application  of  the  10  model  described  earlier.  The  only  real 
consideration  is  the  initial  value  to  use,  A'o  This  process  is  referred  to  as  the  Normal  (or 
Gaussian)  Autoregressive  process,  AR(1).  The  10  model  is 

'^1+1  ~  P +  C/ * 

where  c  is  Normal(0,a^).  The  value  of  p  is  known.  For  Xg,  use  £5/(1  —  p^)^.  If  the  vari¬ 
ance  of  the  £  random  sample  is  (j\  the  variance  of  the  X  sample,  after  transformation, 
will  be  0^  (1  —  p^)J  So,  we  can  thus  construct  a  correlated  stationaiy  normal  time  series, 
and  then  apply  all  the  estimators  to  it. 

2.  The  I'LapIace  Distribution. 

A  discussion  of  the  /-Laplace  family  of  probability  distributions  can  begin  with 
the  widely  known  Laplace  distribution.  This  distribution  is  known  to  be  constructed  as 
the  difference  of  two  Exponential  (/.)  random  variables,  and  the  standard  Laplace  ran¬ 
dom  variable  has  mean  zero,  and  equal  to  one.  It  is  also  known  that  the  Exponential 
distribution  is  a  member  of  the  Gamma  family  of  distributions,  with  shape  parameter 
equal  to  one,  and  scale  parameter  equal  x  (this  discussion  can  be  found  in  almost  any 

7  From  P.A.W.  Lewis,  thesis  advisor. 
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introductory  probability  text)  [Ref.  12,  p.  274].  Thus,  the  standard  Laplace  distribution 
(the  difference  of  two  standard  exponentials)  can  be  obtained  as  the  difference  of  t\^'o 
Ganima(l,l)  random  variable  streams  (the  first  parameter  is  taken  as  the  shape,  and  the 
second  as  the  scale).  Dewald,  et  al,  present  the  family  of  distributions  defined  as 
/-Laplace  distributions  as  being  the  difference  of  two  Gamma(/,1)  random  variables  [Ref 
13,  p.  4].  This  distribution  can  take  a  variety  of  shapes,  as  shown  in  Figure  7. 

Because  of  the  various  shapes  possible  by  the  choice  of  parameter  /  of  this  distribution, 
it  was  selected  for  the  non-Normal  simulation  in  this  study. 

The  /-Laplace  distribution  is  symmetric  about  the  origin,  and  /  can  be  chosen 
to  have  the  shape  resemble  the  Normal  distribution  (large  /),  or  a  very  heavy-tailed  dis¬ 
tribution  which  is  very  non-Normal  in  nature  (small  /). 

Figure  7  contains  examples  of  empirical  histograms  for  various  generated 
/-Laplace  samples  (Closed  forms  for  the  densities  are  hard  to  compute).  But,  these 
samples  are  independent,  and  this  simulation  is  concerned  with  serial  correlation.  We 
need  a  method  to  generate  correlated  /-Laplace  streams. 

Unfortunately,  random  number  streams  which  are  created  by  the  linear  first 
order  autoregressive  10  model  (AR(1))  have  what  is  called  a  "zero  defect,"  meaning  the 
value  zero  for  the  residual  can  occur  with  a  positive  probability.  Moreover,  if  the  pa¬ 
rameter  /  is  small,  this  effect  can  become  large.  Thus,  direct  application  of  the  method 
described  above  for  generating  correlated  Normal  random  streams  (the  "linear  method") 
to  /-Laplace  time  series  can  cause  severe  problems  in  a  simulation  such  as  this,  w’here  a 
lot  of  processing  is  done  to  the  random  stream.  For  this  reason,  DeWald,  Lewis  and 
McKenzie  introduce  the  Square  Root  Beta  Laplace  transformation  and  time  series, 
which  is  non-linear,  and  does  not  possess  the  "zero  defect."  [Ref  13,  p.  9] 

We  can  take  the  expression  for  the  Gaussian  AR  model  (Equation  4.5),  and 
treat  the  correlation  parameter  (p)  as  a  random  entity.  DeWald,  et  al,  do  this,  and  define 
the  /-Beta  Laplace  First-Order  Autoregressive  Process,  /-BELAR(l),  as 

xm  =  jA^loi,[a)  Xt_,{{)  +  VBK/a,/«)  Ul) ,  (4.8) 

where  A, is  an  independent,  identically  distributed  (i.  i.  d.)  stream  of  Beta  (/a,  /a)  vari¬ 
ables,  and  the  B/s  are  also  Beta  distributed,  with  parameters  given  above.  L,  (/)  is  an  i. 
i.  d.  stream  of  /-Laplace  variables  with  parameter  /,  and  a  equal  to  (1-a).  [Ref  13,  p.  10]. 
The  parameter  a  is  chosen  to  fix  the  serial  correlation.  With  this  process,  any  positive 
correlation  can  be  implemented,  with  any  desired  shape  of  the  probability  density.  As 
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Figure  7.  Various  Shapes  of  the  I-Laplace  distribution 
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a  goes  from  zero  to  one,  the  full  range  of  positive  correlations  is  covered.  To  see  the 
relation  between  correlation  p  and  a,  and  /,  note  that  we  can  interpret  this  in  the  10 
model  discussed  above,  with  the  right-most  term  of  Equation  4.8  as  the  innovation,  and 
the  coefficient  of  AVi(0  as  a  randomly  distributed  correlation  coefficient.  This  approach 
is  taken  by  DeWald  et  al,  and  the  correlation  coefficient  is  given  in  terms  of  a  and  /,  as 
the  expected  value  of  J A, {la,  /a)  (Ref.  13  ,  p.  11): 

ar(/a-l-4-)n/+  1) 

p(l)  =  - -i -  .  (4.9) 

r(/-^^)r(/a-H) 

Thus,  this  distribution  can  be  used  to  generate  time  series  with  various  corre¬ 
lations,  and  varying  degrees  of  departure  from  the  familiar  Normal-shaped  distribution, 
allowing  us  to  investigate  the  behavior  of  the  statistical  estimators  of  serial  correlation 
under  different  distributional  conditions.  Note  also  that  the  L{1)  random  stream  in 
Equation  4.8  is  an  /-Laplace  distributed  variable,  which  is  computed  as  the  difference 
of  two  Gamma  random  variables. 

Figure  8  shows  the  behavior  of  several  correlated  random  number  streams  gen¬ 
erated  using  Equation  4.9.  Note  that  the  streams  cycle,  or  consist  of  long  runs  of  very 
small  values,  followed  by  peak  values,  and  that  this  correction  can  be  the  same  for 
widely  different  distributional  shapes,  given  by  /  (a  is  then  chosen  to  acquire  the  desired 
correlation)  [Ref.  13.  p.  12]. 

D.  CONDUCT  OF  THE  EXPERIMENT. 

It  was  desired  to  study  the  estimators  under  three  conditions  of  correlation: 

•  High  positive  corn-nation  (p  =  0.9). 

•  Low  correlation  near  independence  (p  =  0.0). 

•  Negative  correlation  (p  =  -0.9). 

Due  to  the  complex  form  of  Equation  4.9,  it  is  not  possible  to  get  an  exact  inverse  re¬ 
lationship  between  a  and  p  for  the  non-Normal  distribution.  Therefore,  p  approximat¬ 
ing  the  above  values  was  used. 

We  studied  five  marginal  distributional  shapes  (including  the  Normal  distributon): 

•  Normally  distributed. 

•  /  =  3,  nearly  Normal  in  shape. 

•  /  =  1.  departing  from  Normal  behavior. 
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•  /  =  .4,  definitely  non-Normal. 

•  /=  .1,  extremely  non-Normal. 

Further,  for  the  Normal  distribution  study,  we  wished  to  investigate  the  convergence 
of  the  estimators,  so  a  run  consisting  of  up  to  23  super-replications  of  the  simulation 
was  conducted  to  demonstrated  this.  The  speed  of  Normal  random  number  generators 
is  such  that  this  is  possible  in  a  reasonable  time.  With  the  Gamma  and  Beta  generators, 
this  type  of  extended  simulation  will  take  an  extremely  long  time,  depending  on  the 
choice  of  /  and  a  (a  few  super-replications  can  easily  take  several  days,  so  this  type  of 
run  could  take  weeks  on  a  PC). 

The  sample  sizes  for  the  experiment  ranged  from  20  to  500,  with  eight  being  used  in 
all  runs  (see  the  results  figures  in  the  next  chapter).  Also,  we  performed  a  run  with  the 
robust  regression  estimator  using  eight  sample  sizes,  the  largest  sample  size  being  5000, 
to  observe  the  bias  of  this  estimator. 

Since  each  run  of  SIMTBED  can  accomodate  eight  sub-sample  sizes,  these  can  all 
be  combined  in  a  run.  SIMTBED  can  also  take  up  to  five  estimators.  Four  will  be  used 
in  this  experiment,  one  for  each  estimator.  Thus  one  run  of  SIMTBED  is  required  for 
each  distribution  and  for  each  correlation  under  study,  giving  15  runs  of  SIMTBED  as 
a  base.  Of  course,  debugging  and  small-sample  checkout  of  the  simulations  must  be 
done.  This  number  of  runs  is  a  good  size  project,  but  not  unmanageable.  It  compares 
ver>'  differently  with  the  example  in  Chapter  2,  without  using  a  simulation  package  such 
as  SIMTBED.  The  actual  number  of  runs  needed  to  conduct  the  experiment  is  much 
more  than  15  (about  30),  since  all  the  programming  related  factors  must  be  debugged 
(random  number  generators,  output  files,  array  sizes,  etc).  The  results  of  the  experiment 
are  discussed  in  the  next  chapter.  The  amount  of  output  obtained  in  an  experiment  like 
this  is  extremely  large,  even  using  an  analysis  package  like  SIMTBED.  Approximately 
500  pages  of  graphs,  examples  of  which  follow,  w^ere  generated  by  this  experiment. 
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V.  SIMULATION  RESULTS 


A.  NORMALLY  DISTRIBUTED  SAMPLES. 

Consider  first  the  correlated  Normal  samples  (p  =  0.9).  Figure  9  shows  the  color 
combined  estimator  plot  for  each  estimator  (for  three  selected  subsample  sizes),  as  is 
shown  in  the  legend  at  the  bottom  of  the  graph.  With  this  plot  added  to  SIMTBED, 
immediate  corr.parison  of  the  estimators  is  possible,  and  from  this  graph  many  things 
about  the  behavior  of  these  estimators  are  evident. 

First,  all  four  estimators  seem  to  approach  the  same  value,  i.e.  the  true  value 
p  =  0.9.  This  is  evident  from  the  asymptote  lines,  which  are  all  plotted  at  the  same  lo¬ 
cation.  Further,  the  tabled  data  in  the  plot,  as  well  as  the  other  plots  in  the  following 
figures,  support  this  observation.  So,  these  estimators  can  be  seen  to  be  asymptotically 
unbiased,  for  this  sample  distribution  (Normal). 

Next,  consider  the  small-sample  distribution  of  the  estimators.  It  can  be  seen  that 
the  Cressie  estimator  appears  to  have  the  best  behavior,  in  terms  of  bias  at  sample  sizes 
20  through  60,  although  there  are  more  negative  outliers  in  the  plots  for  the  Cressie  es¬ 
timator  than  for  the  others.  As  an  example  calculation,  we  can  show  how  many  evalu¬ 
ations  of  each  estimator  are  represented  by  a  particular  boxplot.  Take  sample  size  20 
for  example.  The  number  of  evaluations  of  each  of  the  four  estimators  represented  by 
the  boxplot  is: 


N  X  M 


sub-sample  size 


6000  X  20 
20 


6000  evaluations 


Similar  calculations  can  be  done  for  any  sub-sample  size  in  any  SIMTBED  simulation. 

Referring  to  the  tabulated  data  in  Figure  9,  we  can  see  the  means  of  all  the  estima¬ 
tors  approaching  the  known  value  of  0.9,  for  all  four  estimators.  The  standard  devi¬ 
ations  can  all  be  seen  to  decrease  as  the  convergance  proceeds  with  increasing  sample 
size.  Note  that  this  is  only  a  brief  reproduction  of  the  tabulated  data  placed  in  the  plots 
for  the  individual  simulations,  shown  in  the  later  figures.  This  plot  is  designed  to 
accomodate  a  maximum  of  five  estimators,  so  brevity  is  dictated  here.  Also  note  that 
each  estimator  in  the 'cluster*  of  boxplots  for  each  sub-sample  size  has  its  description  in 
matching  color,  but  that  they  are  doubly  coded  by  position,  so  this  plot  could  be  used 
even  if  color  printers  were  not  available. 
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Figure  9.  Combined  Estimator  Plot,  Normal,  Correlated  Samples 
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Figures  10  and  1 1  are  examples  of  the  individual  plots  produced  as  each  estimator 
is  processed  by  SIMTBED.  These  figures  contain  the  same  boxplots  that  are  used  to 
prepare  the  combined  estimator  plot  of  Figure  9.  All  eight  sub-sample  size  plots  are 
present  in  Figures  10  and  11.  The  means  of  each  sub-sample  size  can  be  seen  to  ap¬ 
proach  the  known  true  correlation  of  0.9,  and  the  regression  asymptote  is  listed  in  the 
'mean  of  regression  on  averages'  listing  of  the  regression  equation,  which  was  discussed 
in  Chapter  Ill.  Finally,  the  mean  squared  error  (MSE)  is  listed  in  these  plots  for  each 
sub-sample  size.  This  shows  the  small-sample  bias,  and  as  the  sub-sample  sizes  increase, 
the  MSE  approaches  the  standard  deviation  of  the  estimators,  which  is  evidence  of  de¬ 
creasing  bias  from  the  known  value  of  0.9.  There  are  plots  produced  for  moment  and 
Priestley  estimators  which  are  not  included  here;  they  are  similar  to  the  those  which  are 
included  here. 

Further  insight  into  the  behavior  of  the  estimators  is  provided  from  the  super¬ 
replications  summary'  statistics  tables,  which  are  provided  in  Figures  12,  13,  14,  and  15. 
In  the  simulation,  SIMTBED  has  duplicated  the  process  which  generated  the  plots  of 
Figures  10  and  1 1  a  total  of  23  times,  and  has  23  values  of  each  statistic  presented  in  the 
summary  table.  This  was  possible  because  of  efficient  generation  of  Normally  distrib¬ 
uted  variables,  and  this  degree  of  super-replication  cannot  be  efficiently  performed  for 
complicated  distributions,  like  the  l-BELAR(I)  process,  due  to  time  requirements,  as  will 
be  seen  later.  In  these  figures,  though,  we  can  observe  a  very  good  degree  of  conver¬ 
gence  to  the  known  values,  for  all  four  estimators,  as  the  sub-sample  size  increases.  The 
.MSE  also  approaches  ver>'  closely  the  standard  deviation  for  all  estimators,  and  the 
variability  of  all  the  statistics  in  the  summaiy  table  can  be  seen  to  be  small.  Of  interest 
perhaps  is  the  standard  deviation  of  the  fourth  moment,  the  kurtosis,  which  is  the  largest 
of  the  moment  statistics.  This  is  indicative  of  the  higher  variability  of  the  higher  central 
moments.  We  can  conclude  from  this  part  of  the  simulation  that  all  four  estimators  are 
asymptotically  unbiased  with  respect  to  sample  size.  We  can  further  observe  that  the 
Cressie  estimator  appears  to  be  the  best  behaved  in  terms  of  small-sample  bias.  These 
results  apply  only  to  Normally  distributed  samples,  of  course. 

The  results  just  discussed  apply  to  only  one  aspect  of  the  analysis  for  the  Normally 
distributed  samples;  those  with  strong  positive  correlation.  Figures  16  and  17  depict  the 
color  combined  estimator  plots  for  independent  (p  =  0.0)  and  negatively  correlated 
(p  =  -0.9)  sample  distributions.  It  is  interesting  to  observe  that,  in  terms  of  small- 
sample  bias,  the  uncorrelated  Normal  samples  have  the  lowest  bias,  versus  the  strongly 
correlated  samples.  Due  to  the  indicated  asymptotic  convergance  (with  respect  to 
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Figure  10.  Normal,  Correlated  Samples.  Robust  Least  Squares  Estimator. 
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Figure  12.  Summar}'  Statistics,  Normal  Samples.  Robust  Least  Squares. 
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Figure  13.  Summar>-  Statistics,  Normal  Samples.  Cressie  Estimator. 
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Figure  14.  Sutnmar}'  Statistics,  Normal  Samples.  Moment  Estimator. 
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Figure  15.  Summar)  Statistics,  Normal  Samples.  Priestley  Estimator. 
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sample  size)  of  these  samples  indicated  by  the  individual  plots,  the  run  of  23 
super-replications  was  not  repeated.  Observe  that  once  familiarity  is  gained  with  these 
plots,  a  great  deal  of  data  can  be  obtained  by  the  analyst  in  a  very  short  time.  It  does, 
however,  take  some  time  to  build  these  simulations. 

B.  NON-NORMALLY  DISTRIBUTED  SAMPLES,  CORRELATED. 

1.  Parameter  1  =  3. 

The  next  series  of  SIMTBED  plots  describes  the  behavior  of  the  four  estimators 
for  strongly  positively  correlated  /-Laplace  variables,  with  p  approximately  0.9.  Due  to 
the  number  of  runs  of  this  distribution,  and  the  lower  efficiency  of  the  random  number 
generators  when  generating  Beta  and  Gamma  distributed  variables,  only  three  super¬ 
replications  were  performed. 

Figure  18  is  a  color  combined  estimator  plot  from  SIMTBED  of  the  four  esti- 
n^ators,  for  sample  distributed  according  to  the  BELAR{1)  process,  with  /  equal  three. 
First,  observe  that  now,  all  four  estimators  are  not  asymptotic  to  the  same  value.  The 
sample  distribution  has  begun  to  depart  from  Normality,  and  the  estimators  are  begin¬ 
ning  to  exhibit  corresponding  changes.  The  moment  and  Priestley  estimators  appear  to 
be  approaching  the  true  value  of  0.8972,  or  very  close,  while  the  Cressie  estimator  has 
definite  bias,  and  the  robust  regression  estimator  is  showing  slight  asymptotic  bias. 

With  respect  to  small-sample  bias,  the  two  estimators  that  seem  to  behave  well 
asymptotically  also  seem  to  have  the  worst  cases  of  small-sample  bias,  as  indicated  by 
the  boxplots  of  sub-sample  sizes  20  and  60. 

Figure  19  is  an  individual  estimator  plot  for  the  Cressie  estimator.  From  this 
plot  the  asymptote  of  the  regression  can  be  seen  to  disagree  with  the  true  value,  and  the 
boxplots  demonstrate  the  small-sample  bias  for  this  estimator.  A  comparison  of  the 
standard  deviation  with  the  mean  squared  error  also  shows  the  asymptotic  bias.  The 
standard  deviation  of  the  samples  starts  at  0.1839,  at  sub-sample  size  20,  and  steadily 
decreases  to  0.01520  as  the  sample  size  increases,  but  the  MSE  does  not  approach  the 
standard  deviation,  indicating  some  inherent  difference  between  the  true  serial  corre¬ 
lation  and  the  samples.  The  MSE  decreases  from  .2322  to  .03578  at  sub-sample  size  150, 
and  then  remains  relatively  constant  with  respect  to  sample  size.  This  variability  is  thus 
attributed  to  the  bias,  not  to  the  random  variations  of  the  estimator's  calculations  on  the 
random  samples.  Further,  from  the  regression  asymptote  and  its  standard  deviation, 
we  observe  that  the  regression  asymptote  of  0.9327  is  more  than  ten  standard  deviations 
(0.003479)  removed  from  the  true  value  of  .8972;  the  standard  deviation  of  the  regression 
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Figure  16.  Combined  Plot,  Normal  Samples.  Here,  Rho=  0.0. 
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Figure  17.  Combined  Plot,  Normal  Samples.  Here,  Rho  = -0.9. 
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Figure  18.  Combined  Plot,  L-laplace  samples.  Here  Rho=  0.8972. 
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coefTicients  was  determined  from  the  20  replications  as  part  of  the  generation  of  this 
plot. 

The  summary  table  for  all  super-replications  (of  which  there  are  three)  involving 
the  Cressie  estimator  is  showm  in  Figure  20.  With  super-replications,  the  MSE  is  ob¬ 
served  to  actually  increase,  and  does  not  approach  the  standard  deviation  at  all.  The 
bias  of  this  estimator  under  conditions  of  only  slightly  non-Normal  sample  seems  ex¬ 
treme. 

Figures  21  and  22  show  the  similar  behavior  for  the  robust  regression  estimator. 
While  not  as  extreme  in  the  case  of  asymptotic  bias  (yet)  as  the  Cressie  estimator,  the 
robust  regression  approach  seems  to  approach  the  wrong  value  as  sample  size  increases 
(bias).  Again,  the  MSE  decreases,  then  reaches  some  (relatively)  constant  value,  rein¬ 
forcing  the  case  for  asymptotic  bias.  It  is  noteworthy  here  to  observe  that  the  largest 
sub-sample  size  we  use  is  500,  which  seems  like  a  reasonable  sample  size  for  which  to 
get  an  acceptable  value  of  serial  correlation.  Shortly  we  will  observe  the  behavior  of 
robust  regression  for  even  larger  sub-sample  sizes. 

Figures  23  and  24  show  the  behavior  of  the  moment  estimator  under  these 
sample  distribution  conditions  (/  =  3,  strong  positive  correlation).  Here  we  see  a  large 
small-sample  bias,  indicated  by  the  boxplot  of  sub-sample  size  20  falling  off  from  the 
asymptote  line,  as  well  as  from  the  tabulated  means,  standard  deviations,  and  mean 
squared  errors.  With  these  simulation  parameters  (overall  sample  size  of  6000,  and  20 
replications),  the  regression  asymptotic  value  of  0.8889  for  the  moment  estimator  is  still 
accurate  to  two  decimal  places  (with  normal  rounding).  This,  combined  with  the  be¬ 
havior  of  the  MSE  for  this  estimator,  would  indicate  the  estimator  is  asymptotically 
unbiased  (although  it  may  not  approach  the  correct  value  as  rapidly  as  would  be  the  case 
under  conditions  of  Normal  samples).  From  Figure  24,  we  can  see  the  regression 
asymptote  after  three  super-replications  and  observe  an  even  closer  value  to  the  true 
correlation  of  0.8972.  We  conclude  the  moment  estimator  is  unbiased  for  this  sample 
distribution. 

The  simulation  behavior  of  the  Maximum  Liklihood  Estimator  (MLE),  i.e.  the 
Priestley  estimator,  is  depicted  in  figures  25  and  26,  again,  for  the  parameter  I  equal  to 
three,  and  «  chosen  for  strong  positive  correlation.  By  a  similar  analysis,  we  conclude 
this  estimator  is  also  unbiased,  but  has  a  large  small-sample  bias,  just  as  did  the  moment 
estimator. 
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Figure  19.  Individual  Plot,  L*LapIace  samples.  Cressie  Estimator. 
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Figure  22.  Summer}’  Statistics,  L-Laplace  samples.  Robust  Least  Squares 
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Figure  23.  Individual  Plot,  L-Laplace  samples.  Moment  Estimator. 
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Figure  26.  Summar)’  Statistics,  L-Laplace  samples.  Priestley  Estimator. 
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2.  Parameter  1  =  1. 

This  set  of  parameters  is  the  first  encounter  with  the  fact  that  the  random  gen¬ 
erators,  for  large  samples,  will  generate  one  or  more  numbers  which  are  smaller  than 
(closer  to  zero  than)  the  smallest  number  representable  in  the  Ryan- McFarland  Fortran 
compiler  for  micros.  The  number  then  becomes  a  NAN  (Not  A  Number)  and  propa¬ 
gates  through  the  computations  as  ????????.  Figure  27  is  a  color  combined  SLMTBED 
plot,  and  it  shows  the  undefined  results  which  ripple  through  all  calculations  when  an 
invalid  number  is  returned  by  the  random  number  generator.  This  is  believed  to  result 
from  an  underflow  error  because  the  parameters  of  the  underlying  probability  distrib¬ 
ution  that  we  are  asking  the  FORTRAN  subroutines  to  generate  are  very  small.  This 
results  in  random  numbers  generated  which  are  very  close  to,  but  not  equal  to  zero.  The 
random  number  generators  must  perform  transformations  involving  logarithms  and 
square  roots  to  generate  these  Gamma  and  Beta  distributions,  and  when  the  parameters 
become  very  small,  and  the  generators  are  operated  very  frequently,  as  they  are  with 
SIMTBED  and  these  simulations,  it  happens  that  an  underflow  occurs  and  an  invalid 
result  is  returned.  This  ripples  through  every  mathematical  operation  and  appears  in  the 
results,  an  example  of  which  is  Figure  27.  In  this  particular  example,  the  parameter  /  is 
set  to  one,  or  ver\'  nearly  one  (0.95  was  used  to  tr>'  and  circumvent  the  problem  in  this 
particular  example).  Since  there  are  two  Beta  random  streams  required  to  generated  the 
/•BELAR(l)  process,  with  parameters  (?./,(!-«)/),  it  is  true  that  when  /  is  one,  and  we 
want  either  a  high  or  low  correlation,  then  either  a  or  (1-a)  will  be  small.  This  causes 
the  Beta  generator  (which  generates  Beta  numbers  as  the  ratio  of  Gammas)  to  under¬ 
flow.  This  is  a  rare  event,  but  the  number  of  operations  of  a  random  number  generator 
by  SIMTBED  is  extremely  large  (they  are  at  the  heart  of  the  statistical  simulation 
process),  and  only  one  occurrence  is  needed  to  invalidate  the  entire  simulation  run.  For 
these  reasons,  we  were  not  able  to  obtain  acceptable  results  for  this  parameter  of  the 
BELAR(  1)  process.  Every  available  random  number  generator  was  tried,  and  all  of  them 
have  problems  generating  Gamma  random  numbers  with  very  small  parameters. 
Therefore,  we  continue  with  the  next  case. 

3.  Parameter  I  =  0.4, 

This  case  did  not  exhibit  the  type  of  random  number  generator  problem  de¬ 
scribed  above.  Figure  28  is  the  color  combined  estimator  plot  for  the  case  of  I  =  0.4, 
with  strongly  correlated  BELAR(l)  samples.  From  this  plot  it  is  immediately  obvious 
that  there  is  a  difference  in  the  asymptotic  behavior  of  the  estimators.  It  can  be  seen 
that  the  robust  regression  approaches  1.0,  when  the  true  value  is  0.8954,  and  further. 
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Figure  27.  Combined  Plot,  L-lapJace  samples.  Rho=  0.8963.  L  =  0.95. 
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that  the  small-sample  bias  of  the  robust  regression  is  also  unacceptable.  The  Cressie 
estimator  also  has  serious  asymptotic  bias  with  respect  to  sample  size,  but  is  better  be¬ 
haved  with  small-sample  bias.  Still,  it  would  appear  that  both  of  these  estimator  are  very 
poorly  behaved  with  extremely  'hea\'y-tailed',  non-N'ormal  samples  such  as  these.  The 
two  estimators  that  are  asymptotically  unbiased  are  the  moment  and  MLE  estimators, 
but  they  are  beginning  to  show  larger  and  larger  sub-sample  sizes  required  to  reach  the 
true  value.  Also,  as  we  depart  from  Normal  samples,  the  small-sample  bias  of  these  es¬ 
timators  becomes  larger. 

Figures  29  and  30  clearly  show  the  biased  behavior  of  the  robust  regression  es¬ 
timator.  This  bias  is  referred  to  by  Denby  and  Martin,  when  discussing  the  ".M- 
estimate,"  and  the  "GM-estimate."  This  robust  regression  model  is  the  "M-estimate," 
and  hence  demonstrates  the  asymptotic  biased  behavior  referred  to  by  these  authors. 
[Ref.  9,  p.  141]  The  further  from  Normality  the  sample  distribution  becomes  (in  terms 
of  the  /  parameter  of  the  /-Laplace  distribution  and  "hea\y-tailedness"  of  the  underlying 
probability  distribution),  the  worse  the  behavior  of  these  estimators  becomes.  Figures 
31  and  32  are  the  individual  plots  for  the  Cressie  estimator.  With  only  three  super- 
replications,  we  can  see  good  stability  in  the  simulation  results  (in  terms  of  the  standard 
deviations  reported  with  every  statistic  in  the  super- replications  summary  (Figures  30 
and  32). 

Figures  33  through  36  are  the  individual  plots  for  the  two  "convergent"  estima¬ 
tors,  the  moment  and  the  MLE  estimators.  Here,  we  can  begin  to  compare  these  and 
see  if  perhaps  one  estimator  is  becoming  unbiased  faster  than  the  other  (again,  with  re¬ 
spect  to  sample  size).  It  appears  from  Figures  33  and  35  that  the  MSEs  of  both  esti¬ 
mators  are  decreasing  at  about  the  same  rate.  The  asymptotic  regression  estimate  for 
the  moment  estimator  (0.9048)  is  larger  than  that  for  the  Priestley  estimator  (0.8941), 
but  the  Priestley  estimator  is  underestimating  the  actual  correlation,  while  the  moment 
estimator  is  now'  over-estimating  the  true  value.  Both  estimators  appear  to  be  exhibiting 
similar  behavior.  (The  reader  w'ill  undoubtedly  note  the  volume  of  output  required  to 
be  analyzed  when  computers  are  used  to  conduct  simulations,  and  hopefully  will  begin 
to  appreciate  the  purpose  of  such  a  package  as  SIMTBED.) 

4.  Parameter!  =  0.1. 

As  the  final  case  of  the  strongly  correlated,  non-Normal  samples  on  which  w'e 
estimate  serial  correlation,  the  extreme  non-Normal  case  where  parameter  /  =  0.1  w’as 
run  with  SIMTBED.  The  results  begin  with  Figure  37,  which  is  a  color  combined  esti¬ 
mator  plot  of  this  simulation.  It  is  clear  from  Figure  37  that  the  estimators  are  split  into 
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Figure  28.  Combined  Plot,  L-Iaplace  samples.  Rho=  0.8954.  L  =  0.4. 
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Figure  29.  Individual  Plot,  L-Laplace  samples.  Robust  Least  Squares. 
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Figure  30.  Summar}'  Statistics,  L-Laplace  samples.  Robust  Least  Squares. 
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Figure  31.  Individual  Plot,  L- Laplace  samples.  Cressie  Estimator 
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Figure  32.  Summar}'  Statistics,  L-Lapiace  samples.  Cressie  Estimator. 
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Figure  33.  Individual  Plot,  L-Laplace  samples.  Moment  Estimator. 
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Figure  34.  Summar}'  Statistics,  L-Laplace  samples.  Moment  Estimator. 
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Figure  35.  Individual  Plot,  L- Laplace  samples.  Priestley  Estimator. 
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Figure  36.  Summar}’  Statistics,  L-Laplace  samples.  Priestley  Estimator. 
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two  distinct  classes:  the  robust  regression  and  the  Cressie  estimator  comprise  one  group, 
and  the  moment  and  MLE  estimators  comprise  the  other.  The  first  group  is  strongly 
biased,  while  the  second  group  converges,  but  with  slower  and  slower  progress,  as  this 
particular  sample  distribution  (BELAR(l))  becomes  more  extreme.  Recall  that  when  the 
parameter  /  is  small,  and  the  samples  are  correlated,  the  behavior  of  the  sample  stream 
is  such  that  there  are  long  runs  of  numbers  very  close  to  zero,  and  then  peaks  of  a  few 
positive  (or  negative)  numbers  are  interspersed.  Figure  38  shows  the  unacceptably  bi¬ 
ased  behavior  of  the  robust  regression,  and  Figure  39  has  the  super-replications  sum¬ 
mary  for  this  estimator's  run.  Figures  40  and  41  show  the  similar  behavior  for  the 
Cressie  estimator.  Recall  that  the  Cressie  estimator  showed  very  sensitive  behavior  with 
respect  to  Normality,  in  that  it  immediately  began  to  show  bias  when  I  was  set  to  three. 
Figures  42  ind  43  represent  the  moment  estimator.  One  might  say,  without  the  previous 
simulation  results,  that  this  estimator  also  is  exhibiting  bias,  but  I  would  comment  that 
the  MSE  is  still  decreasing  at  sub-sample  size  500,  and  is  still  roughly  twice  the  corre¬ 
sponding  standard  deviation,  so  it  is  possible  that  this  estimator  is  converging,  but  very 
slowly.  The  same  comments  apply  to  the  MLE  estimator,  results  for  which  are  in  Fig¬ 
ures  44  and  45. 

5.  Large-Sample  Simulation  with  Robust  Regression. 

Before  presenting  the  results  on  the  simulation  involving  the  uncorrelated 
BELAR(l)  processes,  we  present  the  results  for  a  large-sample  simulation  involving  the 
robust  regression.  It  was  desired  to  determine  if  the  robust  regression  estimator  was 
actually  converging,  but  in  the  process  it  might  have  been  actually  deviating  more  from 
the  true  value  for  some  range  of  sample  sizes.  In  other  words,  we  were  investigating  the 
possibility  of  a  non-monotonic  convergance  to  the  true  correlation  value.  To  do  this, 
we  ran  a  SIMTBED  simulation  with  only  the  robust  regression  estimator,  and  used  ver>’ 
large  sample  sizes,  as  can  be  seen  in  Figure  46.  Here,  sub-sample  sizes  up  to  and  in¬ 
cluding  5000  were  used,  with  the  overall  sample  size  for  the  simulation  increased  to 
10000,  and  the  number  of  replications  increase  to  50.  Thus,  at  sub-sample  size  5000, 
there  are  200  evaluations  of  the  estimator  represented  by  that  boxplot.  This  seemed  an 
acceptable  minimum  number  of  estimator  evaluations.  Figure  46  shows  that  there  is 
apparently  no  convergance,  even  at  this  extreme,  and  Figure  47  contains  the  super¬ 
replications  summary  statistics,  for  three  super-replications.  The  parameter  /  used  was 
0.4,  a  midranged  value  that  did  not  cause  any  problems,  and  the  simulation  was  con¬ 
ducted  on  two  separate  versions  of  the  robust  regression  estimator:  one,  with  no  addi¬ 
tional  scaling,  and  the  other,  with  the  0.6745  scaling,  referred  to  in  Chapter  IV,  and  used 
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Figure  37.  Combined  Plot,  L-laplace  samples.  Rho  =  0.8920.  L  =  0.1. 
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Figure  38.  Individual  Plot,  L-Laplace  samples.  Robust  Least  Squares. 
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Figure  39.  Summar>'  Statistics,  L-Laplace  samples.  Robust  Least  Squares. 
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Figure  41.  Summar}' Statistics,  L-Laplace  samples.  Cressie  Estimator. 
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Figure  42.  Individual  Plot,  L*LapIace  samples.  Moment  Estimator, 
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Figure  43.  Summar)'  Statistics,  L-Laplace  samples.  Moment  Estimator. 
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Figure  44.  Individual  Plot,  L-Laplace  samples.  Priestley  Estimator. 
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Figure  45.  Summarj  Statistics,  L-Laplace  samples.  Priestley  Estimator. 
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by  Denby  and  Martin  with  their  estimators  [Ref.  9,  p.l41].  Figures  48  and  49  have  the 
results  with  the  scaling,  and  Figures  46  and  47  have  no  additional  scaling.  There  is  not 
much  difference  in  the  behavior  of  these  two  different  approaches.  The  extreme  bias  of 
the  robust  regression  is  present  in  both  cases,  for  the  non-Normal  BELAR(l)  sample 
distribution  being  used  here. 

C.  NON-NORMALLY  DISTRIBUTED  SAMPLES,  UNCORRELATED 

This  section  presents  results  for  the  case  of  the  BELAR(l)  process,  with  values  of 
a  chosen  to  produce  a  very  small  correlation,  on  the  order  of  0.05.  In  these  cases,  the 
problems  associated  with  the  random  number  generators  previously  discussed  appear 
again,  since  the  values  of  /  we  are  interested  in  range  from  three  down  to  0. 1 .  Thus,  the 
cases  for  /  =  1,  and  /  =  0.1  produced  underflow  errors  and  invalid  results.  Results  are 
available  for  the  cases  where  /  =  3  and  /  =  0.4.  Figure  50  is  a  color  combined  estimator 
plot,  with  all  four  estimators,  in  the  case  of  uncorrelated  BELAR(l)  samples.  Here,  the 
moment  estimator  seems  to  show  the  least  degree  of  small-sample  bias,  but  the  Cressie 
estimator  has  the  best  asymptotic  performance.  Figures  51  through  54  are  the  super¬ 
replications  summary  statistics  for  each  of  the  four  estimator  under  conditions  where  / 
=  3.  This  picture  is  similar  to  that  of  the  Normally  distributed,  uncorrelated  samples. 
From  the  regression  asymptotes,  the  Cressie  estimator  appears  to  show  the  best 
asymptotic  behavior,  although  all  estimators  seem  to  be  over-estimating  the  true  value, 
indicating  there  is  more  correlation  in  the  samples  than  is  actually  present.  This  occurs 
for  all  sub-sample  sizes. 

Figures  55  through  59  show  the  results  for  the  uncorrelated  BELAR(l)  process,  with 
/  =  0.4.  The  results  are  similar  to  those  above,  and  the  Normal  uncorrelated  case.  All 
of  these  estimators  will  tend  to  indicate  a  slight  degree  of  correlation,  even  if  the  samples 
are  completely  independent,  just  due  to  the  nature  of  performing  calculations  on  the 
sample  streams.  It  is  very  unlikely  that  they  will  indicate  a  zero  correlation;  something 
like  0.5  to  0.1  is  more  likely  to  be  the  case. 

This  concludes  the  presentation  of  simulation  results  on  lag-1  serial  correlation  using 
SIMTBED.  For  the  negatively  correlated  case,  results  similar  to  the  positively  corre¬ 
lated  case  are  expected,  i.icluding  the  random  number  generation  difficulties. 
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Figure  47.  Summary’  Stats,  No  Additional  Scaling.  Robust  Least  Squares. 
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Figure  49.  Summar)'  Stats,  Additional  Scaling.  Robust  Least  Squares. 
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Figure  51.  Summar}'  Statistics,  L-Laplace  Samples.  Robust  Least  Squares. 
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Figure  52.  Summar)-  Statistics,  L-Laplace  Samples.  Cressie  Estimator. 
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Figure  53.  Summary’  Statistics,  L-Laplace  Samples.  Moment  Estimator. 
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Figure  56.  Summarj-  Statistics,  L-Laplace  Samples.  Robust  Least  Squares. 
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Figure  57.  Summary  Statistics,  L- Laplace  Samples.  Cressie  Estimator. 
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Figure  58.  Summar}’  Statistics,  L-Laplace  Samples.  Moment  Estimator. 


94 


nmm  imrinici  ocm/tTM  a  uoNDiiCRnM 


us 

» 

M 

too 

190 

oo 

OO 

OO 

900 

im 

li4« 

lUM-K 

ItOK 

iiintot 

IHM 

IM^ 

1049 

14011-01 

iSito 

lIMt 

19)10-0 

m 

11140 

IITHE-Ot 

ii4r 

17U3M1 

lUM 

iieuc-oi 

11004 

1S7UM1 

19011-01 

iiaui-o 

nil 

iat7 

lUMC-« 

i^Ml 

^184)1-0 

mai 

lW4l-0t 

loai-ot 

•iiTnHt 

i25-oi 

lOlO-Ol 

1040-01 

10940  01 

IIOS-O 

1400-01 

tutmii 

IIM 

-1743K41 

lUOlMt 

•llltS^ 

lax-oi 

lOB 

1044 

11149 

IIIO 

-IBOMl 

lOtO-M 

-9.119 

liOTI 

-lae 

140041 

BLGOl 

tma 

t\m 

tssn 

tm 

tSSIIi 

imrui 

lOlU 

•IDK 

lS43iMt 

-lt44( 

lS7IS-«( 

•1S44IE-M 
lltl  11-01 

IBOf-M 

ltfl4i<t 

tsrst 

ItOB 

111141-01 

1«B 

•1J1S 

lUKIf-OC 

•lISTStOl 

lS74i-«l 

10&-OI 

19400-41 

IIMO-O 

tssrs 

lira 

10I9K0 

laai 

•1C414 

iniK-«t 

•14MS-4t 

ItaMMC 

11743H1 

IIME-OI 

tfsn 

•^140 

i4ora-o 

im 

•IIM 

14ii0t« 

lOOTK-OC 

i4e4it« 

117111-01 

14U3M1 

mo 

14t9«-0 

imt 

11140-0 

1140 

itao-o 

lira 

lITOtO 

lat 

•1I«4E<M 

ltll4C-0C 

IWK-tl 

1341Z<4t 

IIM 

17Blt-01 

1190 

ItOOMt 

lira 

14910-0 

11771 

14170-0 

11979 

11710-0 

not 

1100-0 

19M 

IMO 

llUK-« 

11171 

lITUKt 

lem 

imoE-oe 

ion 

1K70-0 

1079 

1400-0 

1^ 

1400-0 

ion 

10141-0 

1794 

IMt 

1100K-« 

IMt 

ItlMC-Ot 

11017 

lUtX-OI 

itn 

lt4H»t 

lOO 

119171-0 

1090 

ISlOfrO 

SiISho 

iei9e 

llUX-O 

IM 

144n 

lIlKI-tt 

iSui-« 

11707 

14041-01 

S:SSi-« 

SlSU 

(8Se-o 

100 

11041-0 

1S> 

ISUI 

Itt74f-0I 

144t1 

lasa-oi 

14111 

13UK-0I 

1071 

imo-ot 

1014 

14010-0 

lOO 

lara-o 

ins 

19M0 

ir4K-« 

14040 

iiouE-oe 

1490 

1499K-« 

1401 

110S4E-O 

1410 

11900-0 

1017 

11041-01 

1079 

1010-0 

1017 

1M7E-0 

1«N 

11147 

iita4i-« 

1«1 

mis-oe 

19011 

IMK-Oe 

1470 

ItlSX-OI 

1490 

1S18-0 

1410 

11190-0 

14017 

iiaoo-oi 

117t7 

10710-0 

0«  0  OMOIIOI  0  90IMB 

1010 

14710-01 

-1.779 

1.411 

•1494. 

1149049 

-101 

9919. 

tnraoKoraio  . 

IIIOE-M 

1I4SI-0 

9.90 

10004 

919.1 

lilt 

140nt«09 

1190049 

094. 

oloouR  «  onaa 

IMH 

17179 

410 

0.01 

-«4tO 

991.4 

armnoii  Nii«i.«nti)  tf  irtM*  i  i#im  m  r.m,  iKCi^  !■  .4  unit  mmUji  utianv 


Figure  59.  Summar}'  Statistics,  L-Laplace  Samples.  Priestley  Estimator. 
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VI.  CONCLUSIONS 


A.  SIMTBED. 

These  types  of  statistical  simulations  would  be  largely  infeasible  without  some  sort 
of  aids  to  the  user.  With  routines  like  SIMTBED,  these  simulations  can  be  interesting 
investigations.  Granted,  SIMTBED  can  be  difficult  to  understand  for  the  beginning 
simulator.  But,  once  familiarity  is  gained  all  sorts  of  investigations  and  simulations  are 
within  the  realm  of  the  user.  Now,  w'e  have  increased  the  capability  of  SI.MTBED  by 
providing  the  user  the  capabihty  to  use  his  personal  computer  and  color  output  devices 
in  statistical  simulations,  which  is  often  more  convenient  and  cost  effective.  As  tech¬ 
nology  proceeds,  these  types  of  programs  will  attract  more  attention  and  produce  more 
for  the  user  community. 

B.  SERIAL  CORRELATION  ESTIMATION. 

These  simulation  results  do  not,  in  the  opinion  of  this  author,  provide  any  evidence 
to  indicate  that  the  more  esoteric  and  analytically  intractable  estimators  of  serial  corre¬ 
lation  are  any  better,  with  regard  to  producing  the  "correct"  results,  than  the  well- 
understood  estimators  the  standard  statistical  theory  has  produced.  In  fact,  they  may 
be  worse.  This  is  demonstrated  by  the  behavior  of  the  Cressie  estimator  and  the  robust 
regression  approach  versus  the  familiar  moment  and  less  familiar  .MLE  estimators. 
Further,  if  the  user  interested  in  serial  correlation  has  additional  information  about  his 
samples,  he  can,  with  these  results,  determine  the  behavior  of  these  estimators  on  his 
samples.  In  order  to  get  good  estimates  of  serial  correlation,  the  following  advice  is  of¬ 
fered: 

•  Use  the  largest  possible  sample  size.  If  possible,  it  is  desirable  to  be  outside  the 
small- sample  bias  effects. 

•  Try  and  ascertain  the  distributional  properties  of  the  sample,  population.  If  it  is 
distinctly  non-Normal,  then  recognize  there  will  be  a  corresponding  lack  of  accu¬ 
racy  in  the  estimate. 

•  If  possible,  obtain  multiple  samples.  .Multiple  estimates  give  better  overall  indi¬ 
cations  of  the  correlation. 

C.  FURTHER  EXPERIMENTATION. 

It  would  be  interesting  to  study  the  "GM-estimate"  of  Denby  and  Martin 
[Ref  9,  p.  141].  Other  non-Normal  distributions  can  also  be  investigated.  Given 
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sufTicient  time,  these  simulations  can  be  carried  further,  in  terms  of  sub-sample  sizes,  and 
number  of  super-replications.  Finally,  there  are  probably  other  esoteric  estimators  of 
serial  correlation  in  the  literature  which  could  be  studied,  as  this  is  an  important  field  in 
which  to  conduct  research. 


APPENDIX  A.  USER'S  GUIDE  TO  SIMTBED,  A  SIMULATION  TEST 

BED 


A.  OVERVIEW. 

The  simulation  test  bed  program  used  in  this  thesis,  SIMTBED,  is  designed  to  aid 
in  the  assessment  of  the  distributional  properties  of  any  user-supplied  statistical  estima¬ 
tor  based  on  i.i.d  random  variables  or  on  time  series.  It  is  a  FORTRAN  subroutine,  and 
provides  analysis  of  estimators  at  various  sample  sizes.  It  controls  the  user-provided 
generating  routines  so  that  the  estimator  can  be  computed  many  times  to  study  its  dis¬ 
tribution,  moments  (through  the  4th  central  moment),  and  the  variability  of  the  esti¬ 
mates  of  these  values.  A  regression  model  for  the  mean  and  variance  can  also  be 
constructed.  In  general,  any  statistical  simulation  provides  voluminous  output,  and  this 
approach  is  designed  to  compactify  the  output  and  make  the  important  features  appar¬ 
ent.  Graphic  displays  of  the  behavior  of  the  user  estimators  is  accomplished  using  line 
printer  graphics,  and  the  system  is  designed  for  the  IB.M  personal  computer  family  of 
computers.  Output  consists  of  a  series  of  plots  for  each  estimator  (box  plots,  percentile 
plots,  normalized  quantile  plots),  summary'  tables  for  super-  replications,  a  combined 
boxpiot  graph  for  all  estimators,  and  optionally  bivariate  histograms  for  pairs  of  up  to 
three  estimators.  If  known  values  of  the  estimators  are  provided,  the  mean  squared  error 
from  these  known  values  can  be  obtained. 

1.  History'. 

SIMTBED  began  in  1981  with  a  mainframe  version  by  Lewis,  Orav,  and  Uribe. 
The  first  personal  computer  version  was  presented  in  a  thesis  by  Hans-Walter  Drueg. 
based  on  the  regression  adjusted  graphics  and  estimation  methodology  of  Lewis  and 
Heidelberger.  It  has  subsequently  been  moved  to  the  IB.M  PC,  and  modifications  in¬ 
clude: 

•  A  capability  for  super-replications  to  estimate  the  variability  of  the  estimates  of  the 
quantiles,  moments,  and  regression  parameters. 

•  A  restart  capability  for  building  super-replication  simulations  over  time  using  files. 

•  Use  of  files  to  capture  super-replication  output  for  further  processing  by  other 
systems. 

•  Bivariate  histograms. 

•  .Most  recently,  the  use  of  color  to  compare  the  estimators  with  each  other  in  the 
same  plot. 


This  work  reflects  changes  in  data  processing  technology,  and  is  largely  the  re¬ 
sult  of  work  by  P.A.W.  Lewis,  E.J.  Orav,  and  L.  Uribe,  while  the  most  recent  additions 
to  the  system  were  added  as  part  of  this  thesis  by  the  author.  The  remainder  of  this 
appendix  consists  of  a  discussion  of  the  features  of  SIMTBED,  and  how  it  is  used. 


B.  FEATURES  OF  SIMTBED. 

In  order  to  use  SIMTBED,  the  user  must  supply  the  driver,  a  program  which  sets 
the  parameterr  (listed  below)  and  calls  SIMTBED,  and  the  estimator  routines,  which 
take  a  random  number  seed  and  sample  size,  and  generate  one  result  which  is  the  esti¬ 
mator,  based  on  the  sample  size.  These  are  referred  to  as  sub-sample  sizes,  for  the  fol¬ 
lowing  reason. 

1.  Sample  Sizes. 

SIMTBED  takes  a  global  sample  size,  N,  (5000,  for  example),  and  then  sections 
it  according  to  various  subsample  sizes  NE(),  and  calls  the  estimator  routine(s)  the  ap¬ 
propriate  number  of  times.  In  this  way  multiple  evaluations  of  the  estimator  are  ob¬ 
tained.  If  the  subsample  size  were  100,  and  N  were  5000,  then  50  evaluations  of  the 
estimator,  based  on  a  sample  size  of  100  would  be  obtained.  This  process  can  be  repli¬ 
cated  up  to  100  times,  through  M.  the  number  of  replications,  so  for  example,  if  N  is 
5000,  and  NE  is  50,  and  M  is  20,  then  2000  evaluations  of  the  estimator  will  be  gener¬ 
ated.  Up  to  eight  different  subsample  sizes  can  be  specified,  and  will  be  used  for  each 
of  up  to  five  estimators.  These  evaluations  of  the  estimator  are  stored  in  an  array,  and 
SIMTBED  will  obtain  statistics  from  them.  The  array  must  hold  at  least 
(N  X  M)  NE(I),  where  NE(I)  is  the  first,  and  smallest  subsample  size.  The  subsample 
sizes  are  in  increasing  order,  which  is  conducive  to  the  graphing  process. 

2.  SIMTBED  Estimator  Statistics. 

SMTB  computes  the  mean  of  the  stream  of  estimators,  for  each  subsample  size. 
Also,  the  standard  deviation  is  computed  using  n- 1  weighting.  The  standard  error  of  the 
mean  is  computed,  as  a!yfn  .  The  mean  squared  error  (MSE)  is  optionally  estimated 
using  the  formula 

MSE  =  >^/(VAR  +  (m- VMSE)^)  {A  -  1) 

where  VMSE  is  the  known  input  value  of  the  estimator,  again  for  each  subsample  size. 
The  coefficients  of  skewness  and  kurlosis  are  also  computed,  using  unbiased  expressions. 
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3.  Graphs. 

a.  Boxplots. 

A  boxplot  graph  is  generated  for  each  estimator,  depicting  boxplots  for  each 
subsample  size,  showing  the  mean,  median,  inter-quartile  range,  and  outlier  information. 
The  vertical  scale  can  be  set  by  the  user,  or  SIMTBED  will  scale  the  graph  according  to 
the  largest  values  encountered.  The  graphs  can  be  fixed  to  all  have  the  same  scale,  or 
each  can  be  scaled  individually.  The  boxplots  can  be  reduced.  That  is,  the  outliers  are 
reported  as  a  numeric  count  at  the  tail  of  the  boxplot  instead  of  representing  each  by  a 
separate  symbol.  This  is  often  necessary  for  highly  variable  estimators.  If  super¬ 
replications  are  being  performed,  up  to  three  such  plots  for  each  estimator  can  be  ob¬ 
tained. 

b.  Quantiles. 

A  plot  of  eleven  quantiles  is  prepared  next.  They  are  depicted  in  the  plot, 
as  well  as  tabulated  below  the  graph.  The  lag  one  serial  correlation  (moment  estimator) 
is  also  listed.  A  normalized  quantile  plot  is  also  available. 

c.  Other  Plots. 

If  requested,  bivariate  histograms  for  the  pairwise  combinations  of  the  first 
three  estimators  can  be  obtained  to  graphically  assess  relationships  between  the  different 
estimators.  One  plot  is  prepared  for  all  the  subsample  sizes,  giving  the  possibility  of  24 
histograms  if  the  full  complement  of  subsample  sizes  is  prepared.  The  bivariate 
histogram  also  lists  four  measures  of  association:  covariance,  correlation  coefficient, 
Spearman's  rank  correlation  coefficient,  and  Kendall's  tau  coefficient.  Five  tests  for 
equidistribution  are  included:  Kolmogorov-Smimov,  Wald-Wolfowitz,  Mann-Whitney, 
Wilcoxson,  and  Siegel-Tukey  tests.  The  overall  univariate  statistics  are  also  reproduced 
with  these  plots:  mean,  median,  variance,  standard  deviation,  range,  etc. 

d.  Combined  Estimator  Boxplots. 

Finally,  a  graph  of  selected  boxplots  for  all  estimators  together  can  be  ob¬ 
tained,  so  the  relations  between  them  at  various  sample  sizes  can  be  better  studied.  If 
a  color  printer  is  available,  each  estimator  will  have  a  different  color.  Up  to  three  of  the 
subsample  sizes  can  be  plotted,  for  up  to  five  estimators,  all  on  the  same  graph.  If  re¬ 
gression  is  being  performed,  the  asymptote  lines  will  be  included,  in  the  appropriate 
color  for  each  estimator.  These  regression  lines  are  merely  reproductions  of  the  full  re¬ 
gression  SIMTBED  performed  when  the  estimators  were  simulated,  and  are  based  on  the 
original  SIMTBED  regression.  No  additional  simulation  or  computation  is  required  to 
produce  these  combined  plots. 


A 


« 
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4.  Regression. 

The  regression  performed  by  SIMTBED  follows  the  methodology  developed  by 
Heidelberger  and  Lewis  (see  the  body  of  the  thesis,  Chapter  3,  Section  B.)-  Regression 
is  performed  on  the  mean  of  estimates  using  the  data  from  the  subsample  sizes  according 
to  the  equation; 

E[^J  =  0  +  (~)  +  (~)  +  (-^)  +  ...  [A -2) 

m  m 

the  degreee  of  regression  is  the  number  of  terms  of  the  equation  used.  In  equation  (2), 
6  is  the  regression  estimate  of  the  estimator.  This  regression  is  performed  for  each  rep¬ 
lication  (M),  and  with  these  independent  data  points,  the  variance  and  standard  devi¬ 
ation  of  the  coefficients  of  equation  (2)  can  be  estimated.  These  equation  coefficients 
are  reported  with  the  standard  boxplot  graphs  SIMTBED  produces. 

The  regression  for  the  variance  of  the  estimator  is  performed  once,  using  all 
M*N  data  points,  according  to  the  equation 

Var[0J  =  (4j-)  +  (-^r)  +  i\)  +  (-TT)  +  -  (^-3) 

m  '  m  tn  ’ 

These  coefficients  are  also  reported  in  the  plot  summary. 

5.  Super-replications. 

The  simulation  process  just  described  can  be  wholly  repeated  many  times,  re¬ 
ferred  to  as  super-replications.  This  makes  it  possible  to  get  precision  information,  in 
the  form  of  standard  deviation,  for  all  the  statistics  SIMTBED  computes,  instead  of  just 
the  regression  adjusted  estimate  of  the  mean  of  the  estimator  distribution.  With  super¬ 
replications,  averages  and  standard  deviations  are  available  for  all  the  moments,  the  se¬ 
rial  correlation  of  the  replications,  and  all  eleven  quantiles  for  all  the  subsample  sizes, 
and  the  regression  coefficients  as  well.  If  specified,  individual  run  boxplot  graphs  and 
quantile  plots  can  be  obtained  for  the  first  three  super-replications,  or  only  for  the  first. 
These  super-replication  summary  statistics  can  be  stored  in  a  file  in  tabular  form  for 
further  processing  by  any  number  of  other  means,  or  for  archival  purposes. 

Since  the  performance  of  super-replications  can  be  quite  time-intensive, 
SI.MTBED  has  the  capability  to  write  the  parameters  and  summar>'  data  to  a  file  for 
super-replications  so  far  performed,  and  will  then  restart  from  where  it  left  off',  producing 
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more  super-replications  on  the  same  simulation.  In  this  way,  the  precision  needed  can 
be  achieved  piecewise,  at  the  convenience  of  the  user. 

6.  Random  Number  Generation. 

Since  statistical  simulation  is  dependent  on  the  production  of  pseudo-random 
numbers,  SIMTBED  makes  available  routines  for  generating  several  common  distrib¬ 
utions  of  random  variables.  Among  these  are  uniform,  normal,  Laplace,  Cauchy, 
gamma,  Pareto,  beta,  geometric,  Poisson,  and  binomial  random  variables.  These  ran¬ 
dom  number  generators  are  based  on  the  well  tested  uniform  random  number  generator 
LLRANDOM  II.  These  random  number  generators  are  linked  with  the  SIMTBED 
subroutines  after  compilation,  and  the  user  can  thus  use  any  linker/ library  utility  to  in¬ 
sert  or  remove  any  of  these  routines,  or  add  new  random  number  generators  (i.e.  IMSL) 
at  will. 

C.  USE  OF  SIMTBED. 

To  use  SIMTBED  you  must  write  a  FORTRAN  program  w'hich  has  a  CALL 
statement  to  the  SIMTBED  subroutine.  This  is  called  a  driver  program,  and  your  driver 
must  do  several  things  for  SIMTBED  to  operate  properly.  An  example  driver  is  included 
as  figure  1.  The  driver  must  do  the  following: 

•  Initialize  and  set  appropriate  values  for  the  arguments  of  Sl.MTBED  (see  Table  1). 
This  is  done  through  the  REAL,  INTEGER,  DATA,  and  direct  assignment 
FORTRAN  statements. 

•  Declare  the  scratch  array  of  the  correct  size  for  SIMTBED  to  use.  This  size  is  de¬ 
termined  as  N  *  M  :  NE(1),  since  NE(1)  is  the  smallest  sample  size,  and  will  result 
in  the  largest  number  of  evaluations  of  your  estimator. 

•  Declare  as  EXTERNAL  the  names  of  the  estimator  routines  provided  to 
SIMTBED. 

1.  SIMTBED  Arguments. 

The  argument  types  for  SIMTBED  are  listed  below,  along  with  their  function 
and  possible  values.  In  general,  the  names  used  here  are  not  required,  but  they  must 
match  in  variable  type  and  position  in  the  calling  statement,  and  the  arrays  must  be  of 
the  correct  dimension.  For  example,  NCOLRNDX  is  not  required  to  be  named  as  such, 
but  it  must  be  an  INTEGER(3)  array,  and  be  in  the  proper  order  in  the  argument  list 
of  the  calling  statement. 

2.  Calling  Statement. 

The  calling  statement  to  invoke  SIMTBED  is: 
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CALL  SIMTBED(ISEEDI,ISEED2,ISEED3,1SEED4,ISEED5,Y,N,M,NE, 
*L,D,NSR,RG,SEI,SVS,YMIN,YMAX,NEST,GESTLTTL1.GEST2JTL2, 
*GEST3,TTL3,GEST4,TTL4,GEST5.TTL5,IFIL,NPRT,MSE,VMSE,IPR, 
*VMXl,VMX2,VMX3,VMX4.VMX5,IBIV,RSTRT,ICOLOR,IBWPRT,\CPRT, 
*  NCOLRNDX) 

3.  Estimator  Routines. 

The  user  must  also  provide  a  number  (up  to  five)  of  estimator  subroutines  to 
SIMTBED,  for  generating  the  random  numbers  and  the  estimator,  based  on  the  sample 
size.  The  argument  list  of  the  estimator  routine  must  have  the  following  structure  (the 
name  is  up  to  the  user,  of  course): 

SUBROUTINE  GEST1(1SEED,N,EVAL) 

where  GESTl  is  the  declared  EXTERNAL  name,  ISEED  is  a  REAL*8  (double  preci¬ 
sion)  number  for  the  random  number  seed,  N  is  an  INTEGER  sample  size  to  use,  and 
EVAL  is  a  REAL*4  result,  the  estimator  evaluated  based  on  sample  size  N.  Within  the 
routine  the  user  is  free  to  do  anything  necessary  to  generate  the  random  process  and 
obtain  the  estimator  (could  even  be  non-random  nature).  It  is  common  to  have  calls  to 
random  number  generators  and  some  follow-on  calculations  (for  example,  obtaining  the 
fourth  moment  of  standard  normal  random  numbers).  It  is  often  of  interest  to  determine 
how  many  times  this  user  routine  will  be  called.  The  value  N  will  be  each  NE(I)  in  se¬ 
quence,  so  the  number  of  calls  to  this  subroutine  will  be  N  *  M  /  NE(I),  for  each  sub¬ 
sample  size.  This  is  why  the  Y  array  is  required  to  be  at  least  a  certain  size.  It  holds  the 
results  from  the  calls  to  this  routine.  Notice  there  is  no  provision  for  other  parameters 
to  be  passed  to  the  estimator  routine.  If  the  user  wishes  to  parameterize  the  estimator 
routines  through  the  driver  program  (useful  for  complicated  and  related  estimators), 
COMMON  storage  is  available  for  this  purpose.  SIMTBED  does  not  use  any  COM¬ 
MON  storage. 

4.  Files. 

SIMTBED  has  the  ability  to  use  three  files  in  addition  to  the  console  (UNIT 
5).  These  are  for  normal  output  (UNIT  6),  restart  operations  (UNIT  2),  and  super¬ 
replication  recording  results  (UNIT  I).  Each  of  these  files  is  used  in  a  difterent  way. 
They  are  all  created  with  the  OPEN  statement.  The  UNIT  6  file  will  contain  carriage 
control  characters  for  visual  display  devices  (printers,  CRTs),  and  can  be  a  file,  or  an 
actual  unit.  We  recommend  using  a  file  to  prevent  a  printer  error  from  causing  a  pro¬ 
gram  interrupt  and  loss  of  data.  If  a  file  is  used  it  must  be  printed  with  respect  given  to 
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the  carriage  control  characters,  or  the  plots  will  not  be  correct  (the  DOS  PRINT  com¬ 
mand  suffices  nicely).  For  example 

OPEN(06,FILE  =  RESULTS.TXT'.FORM  =  FORMATTED) 

where  ACCESS  of  SEQUENTIAL  is  the  default  and  not  specified.  Also,  no  error  han¬ 
dling  is  present  in  this  example.  The  file  used  for  output  of  super-replications  is  also  of 
type  FORMATTED,  but  is  written  to  UNIT  1,  and  has  no  carriage  control  characters 
imbedded.  The  result  is  a  normal  ASCII  file  that  can  be  read  by  any  text  editor.  The 
file  used  for  restart  is  different,  however.  Using  UNIT  2,  this  file  is  UNFORMATTED, 
and  can  only  be  read  by  another  FORTRAN  program.  Since  type  FORMATTED  is  the 
default  for  sequential  files,  the  user  must  give  this  specific  declaration  in  the  OPEN 
statement,  or  an  error  will  occur.  For  example, 

OPEN(02,FILE=  'START.DAT',FORM=  UNFORMATTED', ACCESS  = 
'SEQUENTIAL')  will  cause  the  correct  file  type  to  be  created.  The  data  in  this 
file  is  written  in  internal  storage  form,  and  is  inaccessible  to  the  user. 

5.  Using  Random  Numbers. 

The  random  number  generators  available  in  SIMTBED  are  based  on  the  uni¬ 
form  random  number  LLRANDOMII,  as  mentioned  earlier.  What  will  be  listed  here 
is  the  CALL  statement  and  arguments  required  to  generate  a  random  variable  stream, 
and  the  form  of  the  variables  generated.  For  all  the  calls,  DSEED  is  a  REALMS  seed, 
N  is  the  number  of  variables  generated,  and  X  is  a  real  array  of  size  at  least  N,  con¬ 
taining  the  random  numbers  after  the  call. 

•  For  uniform  random  numbers,  use  CALL  LRNDPC(DSEED,X,N)  to  obtain  uni¬ 
form  [0,  1]  random  numbers. 

•  For  normal  random  numbers,  use  CALL  LNORPC(DSEED,X,N)  to  obtain 
standard  normal  random  numbers. 

•  For  Laplace  random  numbers,  use  CALL  LLAPPC(DSEED,X,N)  to  obtain 
Laplace  random  numbers  with  mean  0  and  standard  deviation  SQRT(2). 

•  For  Cauchy  random  numbers,  use  CALL  LCHYPC(DSEED,A,N)  to  obtain 
Cauchy  random  number  with  location  0  and  scale  1 

•  For  Gamma  random  numbers,  use  CALL  LGAMPC(DSEED,X,N',K)  to  obtain 
Gamma  random  numbers  with  shape  K  and  scale  1.  Transform  to  Gamma(k,b) 
by  dividing  by  b. 

•  Pareto  random  numbers  are  available  by  the  statement  CALL 
LPARPC{DSEED,X,N,A)  where  A  is  the  shape  parameter  of  the  Pareto  distrib¬ 
ution. 


•  Beta  random  numbers  are  obtained  with  CALL  LBETPC(DSEED,X,N',P,Q)  where 
P  and  Q  are  the  parameters  of  the  Beta  distribution. 

•  Geometric  (discrete)  random  variables  are  available  with  CALL 
LGEOPC{DSEED,A,N,P)  where  P  is  the  parameter  of  the  geometric  distribution. 

•  Generate  Poisson  random  variables  with  CALL  LPOIPC(DSEED,A,N,U)  where 
U  is  the  mean  of  the  desired  distribution.  The  method  used  to  generate  these  var¬ 
iables  uses  a  table  lookup,  and  requires  some  front  end  'overhead'  to  set  up.  For 
best  efficiency,  generate  as  many  variables  as  possible  at  one  time. 

•  To  generate  Binomial  random  numbers,  CALL  LBINPC(DSEED,X,N,NIND,P)  is 
required.  NIN'D  is  an  INTEGER,  for  the  parameter  number  of  trials.  P  is  the  p 
parameter  for  the  binomial  distribution. 

•  For  random  variables  other  than  those  listed  here,  or  that  cannot  be  obtained 
through  some  transformation,  the  user  must  provide  the  routine  to  generate  them, 
usually  starting  with  a  call  to  LRNDPC. 

6.  Running  SIMTBED. 

In  general,  to  run  a  driver  with  SIMTBED,  the  driver  must  be  compiled  and 
linked  with  the  SIMTBED  librar\-.  For  most  compilers  there  is  an  option  for  large  ar¬ 
rays.  This  should  be  used  if  the  dimensions  of  the  Y  array  are  large.  The  reader  is  re¬ 
ferred  to  the  body  of  the  thesis  for  examples  of  SIMTBED  output. 

D.  SIMTBED  ARGUMENTS  AND  PARAMETERS. 

1.  ISEEDl,  ISEED2,  ISEED3,  1SEED4,  ISEED5.  DOUBLE  PRECISION 
(REAL*8)  reals.  These  are  the  seeds  used  to  start  the  random  number  streams 
used  by  SIMTBED.  Using  the  same  seed  will  produce  the  same  results.  Use  the 
same  number  for  the  seed  to  get  the  same  random  numbers  for  each  estimator. 

2.  Y.  REAL*4  array.  The  scratch  array  used  by  SIMTBED  to  carr>'  the  results  of 
your  estimator  when  called. 

3.  N.  INTEGER.  The  "global"  sample  size. 

4.  M.  INTEGER.  The  number  of  replications  of  each  subsample  size  to  perform. 
.M  cannot  exceed  100. 

5.  NE.  INTEGER  array  of  size  8.  The  subsample  sizes  for  SIMTBED  to  use.  Must 
be  in  ascending  order.  If  less  than  8  are  used,  pad  with  zeros. 

6.  L.  INTEGER.  The  number  of  subsample  sizes  to  use.  Must  be  between  1  and 

8. 

7.  D.  INTEGER.  The  degree  of  regression  (number  of  terms  in  regression  equation). 
Can  be  from  1  to  6.  If  there  are  not  enough  subsamples  (D  <  =  L  -  1)  to  establish 
the  regression,  SI.MTBED  will  lower  the  degree  of  regression  specified  in  the  call. 
Using  D  =  0  will  suppress  the  regression. 

8.  NSR.  INTEGER.  Number  of  super-replications  to  perform.  Must  be  at  least  one. 
If  only  one  super-replication  is  used,  no  summary  will  be  generated. 
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9.  RG.  INTEGER.  Reduced  Graphics.  1  =  Yes.  0  =  No.  In  reduced  graphics, 
SI.MTBED  will  put  the  number  of  outliers  at  the  end  of  the  boxplot  instead  of 
plotting  each  one.  This  makes  the  scale  of  the  plot  closer  to  the  interquartile  range, 
and  thus  easier  to  interpret  for  highly  variable  estimators. 

10.  SEI.  INTEGER.  Scale  Estimators  Individually.  1  =  Yes.  0  =  No.  When  set 
to  zero,  plots  for  all  estimators  will  have  the  same  scale  (the  max  of  the  set  of  es¬ 
timators).  This  is  required  for  color  combined  plots,  so  if  color  is  selected,  this  flag 
will  be  reset. 

11.  SVS.  INTEGER.  Set  Vertical  Scale.  1  =  Yes.  0  =  No.  IfSVS  =  1,  the  user 
will  set  the  vertical  scale  with  the  values  YMIN  and  YMAX.  Otherwise, 
SIMTBED  determines  these  values. 

12.  YMIN.  REAL.  Minimum  y  axis  value  for  SVS  =  1. 

13.  YMAX.  REAL.  Maximum  y  axis  value  for  SVS  =  1. 

14.  NEST.  INTEGER.  Number  of  Estimators.  Must  be  between  1  and  5.  The  ap¬ 
propriate  arguments  for  the  number  of  estimators  must  be  defined.  Otherwise, 
dummy  arguments  can  be  used  (ISEED,  GEST,  TTL,  VMX). 

15.  GESTl,  GEST2,  GEST3,  GEST4,  GEST5.  EXTERNAL.  These  are  the  names 
of  the  estimator  routines,  passed  to  SIMTBED  in  the  calling  statement.  For  un¬ 
used  estimators,  duplicate  the  defined  names. 

16.  TTLl,  TTL2,  TTL3,  TTL4,  TTL5.  CHARACTER*120  (max).  A  label  of  the  es¬ 
timator  routine,  to  be  placed  on  the  plots. 

17.  IFIL.  INTEGER.  I  =  Yes.  0  =  No.  Yes  will  write  the  super-replication  sta¬ 
tistics  to  the  file  declared  on  UNIT  1,  for  further  processing.  This  is  a  formatted 
ASCII  file. 

18.  NPRT.  INTEGER.  Print  Detail.  I  =  Yes.  0=  No.  Yes  will  print  full  plots  for 
the  first  three  super-replications,  and  normalized  quantile  plots  in  addition  tc  the 
standard  quantile  plots.  No  will  print  full  plots  only  for  the  first  super-  replication. 
Regardless,  the  information  for  the  color  combined  plots  comes  from  the  first 
super-replication. 

19.  MSE.  Mean  Squared  Error.  INTEGER.  1  =  Yes.  0  =  No.  Yes  will  compute 
the  mean  squared  error  of  the  estimator  at  each  sample  size  from  the  user  input 
known  values.  No  ignores  the  user  input  known  values. 

20.  VMSE.  Vector  of  Mean  Squared  Error.  REAL  array  (8,5). 

The  known  values  of  each  estimator  at  each  subsample  size,  for  SIMTBED  to 
compare  with  the  generated  results,  based  on  MSE  flag.  Initialize  to  zeros  for  un¬ 
used  portions  of  this  array. 

21.  IPR.  Print  Percentile  Plots.  1  =  Yes.  0  =  No.  Yes  will  cause  SIMTBED  to 
count  the  frequency  of  occurrence  where  the  evaluated  estimator  is  less  than  each 
of  four  specified  values  (the  percentiles),  for  each  subsample  size.  These  are  then 
converted  to  probabilities,  and  a  plot  is  produced. 

22.  VMXl,  VMX2,  VMX3,  VMX4,  VXM5.  REAL  array  (8,4)  each.  These  are  user 
supplied  values  for  the  percentile  plot  calculations.  SIMTBED  will  obtain  the  fre¬ 
quency  that  the  estimator  is  less  than  each  value  and  prepare  a  percentile  plot. 
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23.  IBIV.  INTEGER.  Bivariate  Histograms.  1  =  Yes.  0  =  No.  Yes  causes 
bivariate  histograms  to  be  produced  for  each  combination  of  the  first  thre^  esti¬ 
mators,  at  each  subsample  size. 

24.  RSTRT.  Restart.  INTEGER.  1  =  Yes.  0  =  No.  Yes  results  in  a  SIMTBED 
write  to  the  file  on  UNIT  2  of  the  super-  replication  final  results,  so  that  the  sim¬ 
ulation  can  be  continued  from  this  point  later.  For  subsequent  runs.  Yes  causes 
the  file  on  UNIT  2  to  be  read,  and  the  parameters  checked  for  agreement.  Proc¬ 
essing  continues  with  the  next  super-replication.  For  example,  if  3  is  used  for  NSR, 
then  using  8  for  the  next  run  for  NST  will  cause  5  more  super-  replications  to  be 
performed.  Using  a  value  for  NSR  for  a  later  run  less  than  that  used  on  an  earlier 
run  causes  a  message  to  be  displayed  and  processing  stops. 

25.  ICOLOR.  INTEGER,  Color  Combined  Printing.  1  =  Yes.  0  =  No.  Yes  causes 
combined  boxplotS  of  all  the  estimators  to  be  produced.  The  subsample  sizes  used 
are  determined  by  another  array.  SEl  is  set  to  0.  Printer  control  codes  to  set  colors 
for  standard  IBM  dot  matrix  printers  are  used  to  print  each  estimator  in  a  different 
color.  On  non-color  printers  these  codes  are  ignored. 

26.  IBWPRT.  INTEGER.  Standard  Printing.  1  =  Yes.  0  =  No.  Yes  causes  the 
standard  printing  of  boxplots  for  each  estimator  in  sequence.  No  suspends  this 
printing  for  brevity.  Bivariate  histograms  and  super-replications  summaty-  plots 
will  still  be  generated.  This  is  used  in  conjuction  with  the  ICOLOR  flag  to  produce 
output  which  will  consist  of  only  the  color  combined  plot.  This  way,  if  the  exper¬ 
imenter  in  only  interested  in  obtaining  this  plot,  he  will  not  have  to  print  all  the 
previously  generated  plots  to  obtain  it.  (This  actually  came  about  as  an  aid  during 
development  of  the  color  features.) 

27.  NCPRT.  INTEGER.  Number  of  clusters  to  print.  Must  be  between  1  and  3. 
This  is  the  number  of  subsample  sizes  for  which  to  print  combined  boxplots. 

28.  NCOLRNDX.  INTEGER  array,  size  3.  Each  entry  must  be  between  1  and  8,  in 
increasing  order.  Do  not  duplicate  entries.  This  specifies  which  of  the  subsample 
sizes  are  used  in  the  combined  plots.  For  example,  DATA  NCOLRNDX  2.3,4 
will  cause  SIMTBED  to  use  the  second,  third,  and  fourth  subsample  sizes  in  the 
combined  plots. 


This  concludes  the  discussion  of  SIMTBED. 
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APPENDIX  B.  METHOD  USED  TO  PROGRAM  COLOR  COMBINED 

BOXPLOTS  IN  SIMTBED 


A.  INTRODUCTION. 

This  appendix  describes  the  programming  approach  I  used  to  incorporate  the  fea¬ 
tures  we  wanted  into  SIMTBED,  which  took  approximately  three  months  of  analysis  ^ 

of  the  SIMTBED  program  and  its  approach  to  statistical  simulation.  There  were  four 
basic  aspects  involved  in  incorporating  color  printing  into  SIMTBED: 

•  Understand  the  architecture  and  organization  of  the  existing  SIMTBED  package.  ^ 

•  Understand  the  method  of  producing  graphics  with  line  printers  and  dot  matrix 
printers  (line  printer  graphics). 

•  Understand  how  color  printers  are  controlled  (changing  their  colors,  etc.). 

•  Determine  the  approach  to  placing  the  color  boxplots  together  to  produce  the 

complete  plot.  Spacing,  choice  of  color,  and  graph  features  to  be  included  were  all  ! 

considerations. 

Each  of  these  will  be  discussed  in  turn. 

B.  SIMTBED  ARCHITECTURE.  , 

SIMTBED,  version  13,  has  21  subroutines,  including  two  added  by  this  author  to 
control  the  color  dot  matrix  printers.  .Most  of  the  subroutines  are  involved  with  com¬ 
puting  statistics,  regression,  percentiles,  and  other  numerical  interests,  and  so  are  not  of 
direct  interest  here.  The  starting  subroutine,  Sl.MTBED,  calls  the  subroutine  PRST  j 

once  for  each  estimator  being  processed,  and  PRST  is  the  routine  that  conducts  the 
sectioning,  calls  the  generator  routines,  obtains  the  statistics,  and  prepares  the  plots. 

This  routine  is  where  the  color  plotting  preparation  has  to  occur,  although  it  will  be 

printed  in  Sl.MTBED,  since  the  color  plot  is  not  complete  until  all  the  estimators  have  j 

been  processed.  PRST  makes  use  of  two  important  subroutines  in  constructing  plots: 

BOXPRT,  which  puts  a  boxplot  in  a  specified  place  in  a  plot  array  (given  the  appropri¬ 
ate  statistics,  of  course),  and  NUMPRT,  which  puts  an  integer  value  into  the  plot  array 
in  the  specified  location.  The  color  plotting  routine  will  use  both  of  these.  I 

C.  LINE  PRINTER  GRAPHICS. 

Using  character  printing  devices  to  generate  plots  is  not  a  complicated  concept.  The 
line  print  (or  dot  matrix  printer)  is  normally  a  character  oriented  device,  and  can  be  used 
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to  create  plots.  The  difliculty  lies  in  determining  the  position  of  the  points  to  be  plotted. 
Once  the  position  is  determined,  the  appropriate  character  is  simply  printed.  The  ap¬ 
proach  to  this  method  is  to  use  a  character  matrix,  a  two-dimensional  array  of  charac¬ 
ters.  The  row  is  then  the  x  axis,  and  the  column  is  the  y  axis.  Then,  all  the  (x,  y)  pairs 
of  points  are  scaled  such  that  they  run  between  zero  and  the  dimension  of  the  array.  In 
SIMTBED,  the  dimensions  are  132  spaces  across  and  50  vertical  spaces.  The  dot  matrix 
printer  is  used  in  compressed  type  mode,  to  make  maximum  use  of  the  limited  resolution 
it  has  compared  to  other  graphic  devices.  For  these  purposes,  line  printer  graphics  work 
quite  well. 

The  color  plotting  approach  to  line  printer  graphics  uses  the  same  approach,  except 
there  is  a  three  dimensional  character  arraj-:  the  first  two  dimensions  represent  the  row 
and  column  of  the  plot,  and  the  third  dimension  represents  the  color  being  plotted. 
Thus,  there  is  one  complete  character  array  for  each  color  to  be  plotted.  When  a  char¬ 
acter  is  to  be  plotted  in  a  specified  color,  it  is  stored  in  that  'sheet'  of  the  character  array. 
Then,  when  printing  is  to  occur,  each  line  is  printed  the  number  of  times  corresponding 
to  the  number  of  colors  before  mo\  ing  on  to  the  next  line. 

D.  COLOR  PRINTERS. 

I  found  that  there  is  in  fact  a  good  degree  of  standardization  in  the  commands  used 
by  different  color  printers.  These  commands  consist  of  special  escape  code  sequences 
to  change  the  printer  color  (the  escape  character,  the  lower  case  'r'.and  a  numeric  color 
code).  This  suggested  a  simple  subroutine  that  would  accept  a  number  representing  the 
color,  and  would  set  the  printer  (FORTRAN  UNIT  6)  to  that  color,  using  the  escape 
code  sequence.  The  other  subroutine  added  merely  initialized  the  three-dimensional 
color  character  array  to  all  blanks. 

E.  DETERMINING  THE  COLOR  PLOTTING. 

Having  determined  the  SIMTBED  approach  to  line  printer  graphics,  and  the  ap¬ 
proach  to  the  new  color  printers,  it  remained  to  choose  a  good  w'ay  to  display  the  color 
plots.  How  many  subsample  sizes?  How  should  they  be  spaced?  How  much  of  the  re¬ 
gression  lines  could  be  included  before  the  plot  became  too  cluttered?  These  issues  were 
addressed  through  experimentation.  Along  the  way,  it  was  easily  possible  to  increase  the 
number  of  estimators  SIMTBED  could  process  from  three  to  five.  With  five  estimators, 
we  found  that  more  than  three  subsample  sizes  could  result  in  twenty  boxplots  being 
plotted  together  in  one  plot.  This  was  the  limit.  We  restricted  the  number  of  subsample 
sizes  for  color  combined  boxplots  to  three,  and  with  five  estimators  this  proved  to  be 
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reasonable,  if  the  subsample  sizes  are  spread  out.  If  they  are  not,  but  are  closely  ar¬ 
ranged,  then  the  scaling  of  the  regression  line,  when  plotted,  will  be  incorrect.  Because 
of  this,  and  the  clutter  in  the  plot  for  different  regression  lines  for  different  estimators, 
we  removed  the  regression  line  from  the  color  plots.  The  asymptote  was  kept,  though, 
as  it  did  not  clutter  the  graphs  terribly.  This  is  the  new  current  version  of  SIMTBED 
for  the  personal  computer. 
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APPENDIX  C.  SAMPLE  SIMTBED  DRIVER  ROUTINES 

1  C  SIMTBED  DRIVER  FOR  NORMAL  AR(1)  RANDOM  VARIABLES  RST 

2  C  . SMTB12 . RST 

3  REAL*4  Y(6500),YMIN,  YMAX,  V(8),RH0 

4  CHARACTER*120  TI ,T2 ,T3 ,T4,T5  RST 

5  REAL*8  IXl, 1X2, 1X3, 1X4, 1X5, IX 

6  INTEGER  N,  M,  NE(8),  L,  D,  RG,  SEI,  SVS,  NEST,NCOLRNDX(3)  RST 

7  EXTERNAL  NAR3,NCRESl,NPRIES,NROBUS 


8 

REAL  VMSE(8,5),  VMX1(8,4), 

VMX2(8,4),VMX3(8,4),VMX4(8,4),VMX5(8,4)  RST 

9 

COMMON  RHO 

10  C 

RST 

11 

DATA 

N/6000/ 

12 

DATA 

M/  20/ 

13 

DATA 

NE/  20,60,100,150,200,250,350,500/ 

14 

DATA 

L/  8/ 

15 

DATA 

D/  4/ 

RST 

16 

DATA 

RG/  1/ 

RST 

17 

DATA 

SEI/  0/ 

RST 

18 

DATA 

SVS/  0/ 

RST 

19 

DATA 

YMIN/  0./ 

RST 

20 

DATA 

YMAX/  0./ 

RST 

21 

DATA 

IX/  88771. DO/ 

RST 

22 

DATA 

IFILE  /!/ 

23 

DATA 

NPRT  /O/ 

RST 

24 

DATA 

MSE  /!/ 

RST 

25 

DATA 

VMSE  /32*. 9,8*0/ 

26 

DATA 

IPR  /O/ 

27 

DATA 

IBIV  /O/ 

28 

DATA 

IRSTR  /!/ 

RST 

29 

DATA 

T3/  ’**Rho  of  N(0,4) 

r.v.  s,  rho=0.  9 

using  moment  estimator'/ 

30 

DATA 

T2/  '**Rho  of  N(0,4) 

r.  V. s ,  rho=0. 9 

using  robust  Least  Squar 

31 

*es  estimator  / 

32 

DATA 

T4/  '**Rho  of  N(0,4) 

r.v.  s,  rho=0.  9 

using  Cressie  estimator 

33 

C  ’/ 

34 

DATA 

T5/  '**Rho  of  N(0,4) 

r.  V.  s,  rho=0. 9 

using  Priestly  Estimator 

35 

*'/ 

36 

DATA 

ICOLOR/1/  IBWPRT/1/ 

NCPRT/3/NC0LRNDX/ 1,2,7/ 

37 

OPEN(06,FILE='NA1.0UT' ,ERR 

=999,I0STAT=IER) 

38  0PEN(05,FILE='C0N  ’ ,ERR=999,IOSTAT=IER) 

39  0PEN(02,FILE='NA1.RST' ,ERR=999,I0STAT=IER,F0RM='UNF0RMATTED' , 

40  C  ACCESS=' SEQUENTIAL' ) 

41  OPEN(01,FILE='NA1.  DAT’ ,ERR=999,I0STAT=IER,F0RM='F0RMATTED' , 

42  C  ACCESS=' SEQUENTIAL' ) 


43  C 

---  GENERATOR  PARAMETERS 

RST 

44 

NEST=4 

45 

NSR=8 

46 

RHO=0.  9 

47  C 

RST 

48 

IX1=IX 

RST 

49 

IX2=IX 

RST 

50 

IX3=IX 

RST 

51 

IX4=IX 

III 


IX5=IX 


52 

53  C 

.  RST 

CALL  SIMTBED(IX1.IX2.IX3,IX4,IX5,Y,N,M,NE,L,D,NSR,RG,SEI,SVS. 

*  YMIN,YMAX,NEST,NR0BUS,T2,NCRES1,T4,NAR3,T3,NPRIES,T5,NAR3,T3, 

*  IFILE 

*  ,NPRT.MSE,VMSE,IPR,VMXl,VMX2,Vi«3,VMX4,VMX5,IBIV,IRSTR,IC0L0R, 

*  IBWPRT.NCPRT.NCOLRNDX) 

STOP 

CONTINUE 

VfRITE(6,*)  '***★*★  error  OPENING  FILE  1,  2  or  6  ' 

END  RST 

WARNINGS  IN  PROGRAM  UNIT:  0 

ERRORS  IN  PROGRAM  UNIT;  0 

INCLUDE  'ARl.FOR' 

SUBROUTINE  AR1(IX,X,N) 

68  C  THIS  SUBROUTINE  GENERATES  THE  NORMAL  ARl  PROCESS,  WITH  CORR  COEF 

69  C  RHO,  MEAN  0,  AND  STDDEV  1 

70  REAL*8  IX 

71  REAL*4  X(*),RHO 

72  COMMON  RHO 

73  CALL  LNORPC(IX,X,N+l) 

74  X(l)=RHO*X(N+l)/SQRT(l-RHO*RHO)  +  X( 1)*SQRT( l-RHO*RHO) 

75  C  WRITE(5,*)'X(1);  ',X(1) 

76  DO  100  1=2, N  RST 

77  X(I)=RH0*X(I-1)  +  X(I)*SQRT(1-RH0*RH0) 

78  100  CONTINUE  RST 

79  RETURN 

80  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 

NUMBER  OF  ERRORS  IN  PROGRAM  UNIT;  0 

81  INCLUDE  'NAR3.FOR’ 

82  SUBROUTINE  NAR3( IX,N,EVAL) 

83  C  LAG  1  SERIAL  CORRELATION  OF  NORMAL  (0,1)  R. V. S  ,  RH0=0.  9 

84  C  USING  XBAR  TO  ESTIMATE  MU 

85  C  RHO  OF  THE  ARl  PROCESS  IS  PASSED  TO  THE 

86  C  GENERATOR  ARl  THROUGH  COMMON  STORAGE 

87  REAL*8  IX 

88  REAL*4  X( 600), MEAN 

89  COMMON  RHO 

90  CALL  AR1(IX,X,N) 

91  SUM=0 

92  SUM1=0 

93  DO  1  1=1, N 

94  1  SUM=SUM+X(I) 

95  MEAN=SUM/N 

96  SUM=0 

97  DO  2  1=2, N 

9  8  SUM=SUM+( XC I ) -MEAN )*( X( I - 1 ) -MEAN ) 

99  2  SUM1=SUM1+(X(I)-MEAN)**2 


55  C 

56 

57 

58 

59 

60 
61 

62  C 

63  999 

64 

65 

NUMBER  OF 
NUMBER  OF 

66 
67 
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100  EVAL=SUM/SUM1 

101  C  WRITE(5,*)'SER.  COR  =  ' ,EVAL 

102  RETURN 

103  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 

NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

104  INCLUDE  'NCRESl.FOR' 

105  SUBROUTINE  NCRES1( IX.N.EVAL) 

106  C  COMPUTES  THE  LAG  1  CORR  COEFF  ESTIMATOR  USING  THE  CRESSIE  FORMULA 

107  C  THE  NORMAL  ARl  PROCESS  HAS  RHO  PASSED  BY 

108  C  COMMON  STORAGE. 

109  C  USES  FUNCTION  AMEDI  TO  GET  THE 

110  C  MEDIAN. 

111  INTEGER  N 

112  REAL*8  IX 

113  REAL*4  X( 600), MEAN, MEDIAN 

114  COMMON  RHO 

115  CALL  AR1(IX,X,N) 

116  SUM 1=0 

117  SUM2=0 

118  MEDIAN=AMEDI(X,N) 

119  C  WRITE( 5,*) 'MEDIAN  =  '.MEDIAN 

120  C  WRITE(5,*)'X(I)  ' ,(X(I) ,I=1,N) 

121  DO  1  1=1, N-1 

122  SUM1=SUM1+SQRT(ABS(X(I)-X(I+1))) 

123  1  IF(ABS(X(I)-MEDIAN).GT.  0)SUM2=SUM2+SQRT(ABS(X(I)-MEDIAN)) 

124  EVAL=l-(((SUMl/SUM2)’WV4)/2) 

125  C  WRITE(5,*)'CRESS  =  \EVAL 

126  RETURN 

127  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 

NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

128  FUNCTION  AMEDI(X,N) 

129  C  THIS  ROUTINE  USES  A  SHELLSORT  AND  INDEXES  INTO  THE  REAL  ARRAY  X  TO  FIND 

130  C  THE  MEDIAN  OF  X  WITHOUT  REARRANGING  IT. 

131  C  THE  INDEXES  ARE  USED  AS  INTEGER*2  TO  CONSERVE  STORAGE. 

132  REAL*4  X(*) 

133  INTEGER*2  I,INDX(600) 

134  INTEGER  N 

135  DO  1  1=1, N 

136  1  INDX(I)=I 

137  C  WRITE(5,*) 'UNSORTED  LIST:  ’ ,(X( INDX( I) ) , 1=1 ,N) 

138  CALL  SRTNDX(X,N,INDX) 

139  C  WRITE(5,*)' SORTED  LIST:  ' ,(X(INDX(I)) ,I=1,N) 

140  IF(M0D(N,2).EQ.  0)THEN 

141  AMEDI=(X(INDX(N/2))+X(INDX(N/2+l)))/2 

142  ELSE 

143  AMEDI=X(INDX(N/2+l)) 

144  ENDIF 

145  RETURN 

146  END 
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NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 


147 

SUBROUTINE  SRTNDX(Y,N, INDX) 

148 

C 

INPLACE  SORT  USING  SHELL  ALGORITHM  ******** 

SMT 

149 

C  USES  INDEXES  TO  SORT  BY  TO  PRESERVE  ORIGINAL  ORDER  OF  Y  ARRAY 

150 

REAL  Y(*) 

151 

INTEGER*2  GAP, INDX (*),ITEMP 

152 

INTEGER  N 

153 

LOGICAL  EXCH 

SMT 

154 

C 

SMT 

155 

GAP=(N/2) 

SMT 

156 

5 

IF  (.NOT.  (GAP.NE.O))  GO  TO  500 

SMT 

157 

10 

CONTINUE 

SMT 

158 

EXCH=. TRUE. 

SMT 

159 

K=N-GAP 

SMT 

160 

DO  200  1=1, K 

SMT 

161 

KK=I+GAP 

SMT 

162 

IF(.NOT.  (Y(INDX(I)).GT.  Y(INDX(KK))))  GO  TO  100 

163 

ITEMP=INDX(I) 

164 

INDX(I)=INDX(KK) 

165 

INDX(KK)=ITEMP 

166 

EXCH=. FALSE. 

167 

100 

CONTINUE 

168 

200 

CONTINUE 

SMT 

169 

IF  (. NOT. (EXCH))  GO  TO  10 

SMT 

170 

GAP=(GAP/2) 

SMT 

171 

GO  TO  5 

SMT 

172 

500 

CONTINUE 

SMT 

173 

RETURN 

SMT 

174 

END 

SMT 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

175  INCLUDE  'NPRIES.FOR' 

176  SUBROUTINE  NPRIES( IX,N,EVAL) 

177  C  COMPUTES  THE  LAG  1  CORR  COEFF  ESTIMATOR  USING  THE  PRIESTLY  FORMULA 

178  C  THE  NORMAL  ARl  PROCESS  HAS  RHO  PASSED  BY 

179  C  COMMON  STORAGE. 

180  REAL*8  IX 

181  REAL*4  X(600),MEAN,A,B,XBAR1,XBAR2,MUHAT, 

182  *SUM1,SUM2 

183  COMMON  RHO 

184  CALL  AR1(IX,X,N) 

185  A=0 

186  B=0 

187  XBAR1=0 

188  XBAR2=0 

189  SUM1=0 

190  SUM2=0 

191  DO  1  1=1, N-1 

192  A=A+X(I)*X(I) 

193  B=B+X(I)*X(I+1) 

194  XBAR1=XBAR1+X(I) 

195  1  XBAR2=XBAR2+X(I+1) 


196  C  WRITE(5,*)’I:  ' , I , '  X(I) ’ ,X( I) , ’ A:  ' ,B, 'XBARl:  ' .XBARl, 'XBA 

197  C  *R2: ' ,XBAR2 

198  XBAR1=XBAR1/(N-1) 

199  XBAR2=XBAR2/(N-1) 

200  MUHAT=( A*XBAR2 -B*XBAR 1)/((A-B)+((N-1) *XBAR 1*( XBAR2 -XBAR 1 ) ) ) 

201  DO  2  1=1, N-1 

202  SUM1=SUM1+(X(I)-MUHAT)*(X(I+1)-MUHAT) 

203  2  SUM2=SUM2+(X(I)-MUHAT)**2 

204  EVAL=SUm/SUM2 

205  C  WRITE(5,*)’SUM1:  ' ,SUM1,'SUM2:  ' ,SUM2 

206  C  WRITE(5,*)'PREISTLY  MUHAT’  MUHAT 

207  C  WRITE(5,*)'XBAR1:  '.XBARl,'  XBAR2:  ' ,XBAR2 

208  C  WRITE(5,*)’A:  '.A,'  B:  ’,B,’  N:  ’ ,N 

209  C  WRITE(5,*)'X»»>  ’  ,(X(1),I=1,N) 

210  C  WRITE(5,*) ' PRIESTLY  RHO:  ' ,EVAL 

211  RETURN 

212  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

213  INCLUDE  'NROBUS.FOR' 

214  SUBROUTINE  NROBUS(SEED,N,EVAL) 

215  C  THIS  ROUTINE  GENERATES  A  STREAM  OF  R.V. S,  AND  THEN  PERFORMS  ROBUST 

216  C  REGRESSION  ON  THEM  TO  ESTIMATE  RHO. 

217  C  THE  CURRENT  STREAM  IS  AR(1)  NORMAL  R. V. S. 

218  REAL*8  SEED 

219  REAL*4  X( 600) ,Y(600) ,B( 1) ,XX( 1 , 1) ,XXI( 1 , 1) ,XY( 1 , 1) 

220  REAL*4  RMED1,RMED2,RMED3,SR1,SR2,SR3,SY,CR,W(600) ,U(600) 

221  REAL*4  WX(600, 1) ,WY(600) ,EVAL 

222  INTEGER  N.I.IN 

223  COMMON  RHO 

224  DATA  CY/1. O/CR/4. 2/CY/l.O/ 

225  DATA  NN/l/IPAS/5/ 

226  1X2=1 

227  CALL  AR1(SEED,X,N) 

228  C  CONSTRUCT  X  AND  Y  VECTORS  FROM  X  ARRAY 

229  DO  1  1=1, N-1 

230  1  Y(I)=X(I+1) 

231  IN=N-1 

232  IX1=IN 

233  CALL  R0BREG(X,Y,B,IN,NN,IX1,IX2,CR,XX,XXI,XY,W,U,WX,WY,IPAS) 

234  EVAL=B(1) 

235  C  WRITE(5,*)'EVAL:  ' ,EVAL 

236  RETURN 

237  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 

NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

238  SUBROUTINE  R0BREG(X,Y,B,M,N,IX1,IX2,C,XX,XXI,XY,W,U,WX,WY,IPAS) 


239  C  ROBUST  REGRESSION  ON  Y=X*B  RRE 

240  C  IPAS=MAX  REGRESSION  PASSES.  1  FOR  STD  (I.E.  NON-ROBUST)  REGRESSION  RRE 

241  C  X=M  BY  N  MATRIX  CONTAINED  IN  AN  ARRAY  OF  DIM(IX1,IX2)  RRE 

242  C  Y=M-VECTOR  CONTAINED  IN  AN  ARRAY  OF  DIM(IXl)  RRE 

243  C  B=N-VECTOR  CONTAINED  IN  AN  ARRAY  OF  DIM(IX2)  RRE 


244  C  XX,XXI=WORK  ARRAYS  OF  DIM(IX2,IX2) 

245  C  W,U,Vnf=WORK  ARRAYS  OF  DIM(IXl) 

246  C  WX=WORK  MATRIX  OF  DIM(IX1,IX2) 

247  C  XY=WORK  ARRAY  OF  DIM(IX2) 

248  C  WK=WORK  ARRAY  OF  DIM(N**2  +  3*N)  OR  LARGER 

249  C  C=CONSTANT.  USUALLY  =  6. 

250  C  CRITERION  FOR  STOPPING  IS  WHEN  VARIATION  IN  CONST.  TERM  <  1% 

251  C  IT  USES  SEVERAL  SUBROUTINES  FROM  IMSL  FOR  MATRIX  INVERSION, 

252  C  MULTIPLICATION,  ETC.  ALSO  USES  PXSORT  TO  SORT  ARRAY. 

253  REAL*4  X(IX1,IX2) ,XX(IX2,IX2) ,XXI(IX2,IX2) 

254  REAL*4  Y(IX1),WK(600) 

255  REAL*4  B(IX2) ,W( IXl) ,XY( 1X2) ,BB,WX( IX1,IX2) ,WY( IXl) 

256  REAL*4  U(IXl) ,C,S,AM,R,SS,SUM1 

257  NPAS=0 

258  ZERO=0 

259  C  SUPPRESS  ERROR  MESSAGES:  UNDERFLOW  AND  IMSL 

260  C  CALL  ERRSET(208,300,-1,1) 

261  C  CALL  UERSET(0,LEVOLD) 

262  AM=(M+1.  )/2. 

263  IM=AM 

264  R=AM-IM 

265  B(l)=-999999. 

266  DO  5  1=1  ,M 

267  WY(I)=Y(I) 

268  DO  6  J=1,N 

269  WX(I,J)=X(I,J) 

270  6  CONTINUE 

271  5  CONTINUE 

272  C 

273  10  CONTINUE 

274  NPAS=NPAS+1 

275  C  CALL  VMULFM(WX,WX,M,N,N,IX1,IX1,XX,IX2,IER) 

276  C  VMULFM  PERFORMS  X  TRANSPOSE  X.  WE  CAN  DO  IT  WITH  A  DO  LOOP,  SINCE 

277  C  IN  THIS  CASE  X  IS  A  VECTOR.  RESULT  GOES  IN  XX  (DIM  1,1) 

278 

279  XX(1,1)=0 

280  DO  200  1=1, M 

281  200  XX(1,1)=XX(1,1)+WX(I,1)**2 

282  IER=0 

283  C  IF  (lER. GT. 0)  WRITE  (6,109)  lER 

284  109  FORMATC ERROR: ' ,2110) 

285  C  CALL  VMULFM(WX,WY,M,N, 1,1X1, IXl, XY, 1X2, lER) 

286  C  VMULFM  PERFORMS  MATRIX  MULTIPLICATION.  WE  WILL  DO  IT  WITH  A  DO  LOOP 

287  C  SINCE  X  AND  Y  ARE  VECTORS.  RESULT  GOES  IN  XY  (DIM  1,1). 

288  XY(1)=0 

289  DO  201  1=1, M 

290  201  XY(1)=XY(1)+WX(I,1)*WY(I) 

291  IER=0 

292  C  IF  (lER.GT. 0)  WRITE  (6,109)  lER 

293  C  CALL  LINV2F(XX,N,IX2,XXI,ZERO,WK,IER) 

294  C  LINV2F  FINDS  THE  INVERSE  OF  A  MATRIX  (X  TRANSPOSE  X).  WE  WILL  DO  IT 

295  C  WITH  A  DO  LOOP,  SINCE  X  IS  A  VECTOR  IN  THIS  CASE.  RESULT  INTO  XXI. 

296 

297  XXI(1,1)=1/XX(1,1) 

298 

299  C  IF  (lER. GT. 0)  WRITE  (6,109)  lER 


RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 


RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 

RRE 


RRE 

RRE 

RRE 


RRE 

RRE 


RRE 


RRE 

RRE 


300  BB=B(1) 

301  C  CALL  VMULFF(XXI,XY,N»N, 1,1X2, 1X2, B. 1X2, lER) 

302  C  PERFORMING  X  TRANSPOSE  X  INVERSE  TIMES  X  TRANSPOSE  Y.  RESULT  INTO 

303  C  B  (DIM  1).  DONE  WITHOUT  A  SUB  CALL  IN  THIS  CASE,  SINCE  WE'RE 


304  C  DEALING  WITH  VECTORS. 

305  B(1)=XY(1)*XXI(1,1) 

306 

307 

308  C  IF  (lER.GT.  0)  WRITE  (6,109)  lER  RRE 

309  C  WRITE(6,101)(B(I),I=1,N)  RRE 

310  101  FORMAT(5F20.  10)  RRE 

311  IF(NPAS  .GE.  IPAS)  GO  TO  99  RRE 

312  IF  (ABS(B(l)-BB)  . LT.  .01*ABS(BB))  GO  TO  99  RRE 

313  C  CALL  VMULFF(X,B,M,N, 1,1X1, 1X2, W,IX1,IER)  RRE 


314  C  YHAT  COMES  FROM  X  TIMES  B,  DONE  WITH  A  DO  LOOP  SINCE  WE  HAVE  VECTORS. 


315  DO  202  1=1. M 

316  202  W(I)=X(I,1)*B(1) 

317 

318  C  IF  (lER.  GT.  0)  WRITE  (6,109)  lER  RRE 

319  C  COMPUTE  RESIDUALS  AND  MEDIAN  OF  ABSOLUTE  RESIDUALS  RRE 

320  DO  20  1=1, M  RRE 

321  W(I)=Y(I)-W(I)  RRE 

322  20  U(I)=ABS(W(I))  RRE 

323  CALL  PXSORT(U,l,M)  RRE 

324  C  WRITE(6,  499)  (U(I),I=1,M)  RRE 

325  499  F0RMAT(6F20.  10)  RRE 

326  105  F0RMAT(8F10.  7)  RRE 

327  S=U(IM)  +  R*(U(IM+1)-U(IM))  RRE 

328  S=C*C*S*S  RRE 

329  SS=S**. 5  RRE 

330  C  WRITE(6,199)  SS  RRE 

331  199  F0RMAT('  CS: ' ,F20. 10)  RRE 

332  DO  40  1=1, M  RRE 

333  W(I)=W(I)*W(I)/S  RRE 

334  IF  (W(I)  .LT.  1.)  GO  TO  25  RRE 

335  C  FACTOR  IS  0.  IN  THIS  CASE  RRE 

336  WY(I)=0.  RRE 

337  DO  31  J=1,N  RRE 

338  WX(I,J)=0.  RRE 

339  31  CONTINUE  RRE 

340  GO  TO  40  RRE 

341  25  W(I)=(1-W(I))  RRE 

342  DO  35  J=1,N  RRE 

343  35  WX(I,J)=X(I,J)*W(I)  RRE 

344  WY(I)=Y(I)*W(I)  RRE 

345  40  CONTINUE  RRE 

346  GO  TO  10  RRE 

347  99  CONTINUE  RRE 

348  RETURN  RRE 

349  END  RRE 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

350  C  PXS 

351  C  SUBROUTINE  PXSORT  (Ml)  PXS 


352  C  PXS 

353  C  PURPOSE  PXS 

354  C  PXS 

355  C  SUBROUTINE  PXSORT  IS  INTENDED  TO  REARRANGE  AN  ARRAY  OF  REAL*4  PXS 

356  C  DATA  INTO  ASCENDING  ORDER  BETWEEN  TWO  SPECIFIED  INDICES.  PXS 

357  C  PXS 

358  C  CALLING  SEQUENCE  PXS 

359  C  PXS 

360  C  CALL  PXSORTCA,  II,  JJ)  PXS 

361  C  PXS 

362  C  ARGUMENTS  PXS 

363  C  PXS 

364  C  A  A  SINGLE  DIMENSIONED  ARRAY  OF  REAL*4  DATA  TO  BE  PXS 

365  C  SORTED  INTO  ASCENDING  ORDER.  DIMENSIONED  TO  AT  LEAST  JJ. PXS 

366  C  PXS 

367  C  II  THE  STARTING  INDEX  FOR  THE  ORDERING  OF  A,  PXS 

368  C  E. G. ,  11=1  IF  THE  WHOLE  ARRAY  IS  TO  BE  SORTED.  PXS 

369  C  PXS 

370  C  JJ  THE  ENDING  INDEX  FOR  ORDERING  A.  PXS 

371  C  PXS 

372  C  USAGE  PXS 

373  C  PXS 

374  C  THE  ARRAY  A  WILL  BE  SORTED  INTO  INCREASING  ORDER  SO  THAT  PXS 

375  C  A(I)  <  A(I+1)  FOR  I  =  11,11+1,. ..  ,JJ-2,JJ-1.  PXS 

376  C  PXS 

377  C  PXSORT  WILL  ONLY  SORT  REAL*4  DATA,  NOT  REAL*8,  INTEGER,  OR  PXS 

378  C  ALPHANUMERIC  DATA.  PXS 

379  C  PXS 

380  C  SUBROUTINES  REQUIRED  PXS 

381  C  PXS 

382  C  NONE.  PXS 

383  C  PXS 

384  C  METHOD  PXS 

385  C  PXS 

386  C  SINGLETON’S  VERSION  OF  THE  PARTITION  EXCHANGE  SORT  IS  PXS 

387  C  USED.  THE  PROGRAM  IS  ESSENTIALLY  COPIED  FROM  THE  ASSOCIATION  PXS 

388  C  FOR  COMPUTING  MACHINERY’S  ALGORITHM  247,  "SORTING  WITH  PXS 

389  C  MINIMAL  STORAGE. "  PXS 

390  C  PXS 

391  C  PROGRAMMER:  IMPLEMENTED  AT  NPS  BY  D.  W.  ROBINSON  PXS 

392  C  PXS 

393  C  DATE:  APR  74  PXS 

394  C  PXS 

395  C  . - . PXS 

396  C  PXS 

397  SUBROUTINE  PXSORT( A, II , JJ)  PXS 

398  C  PXS 

399  DIMENSION  A( JJ) ,IU( 16) , IL( 16)  PXS 

400  M=1  PXS 

401  I=II  PXS 

402  TsTJ  PY^ 

403  5  IF(I  .GE.  J)GO  TO  70  PXS 

404  10  K=I  PXS 

405  IJ=(I+J)/2  PXS 

406  T=A( I J)  PXS 

407  IF(A(I)  .LE.  T)  GO  TO  20  PXS 
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408 

A(IJ)=A(I) 

409 

A(I)=T 

410 

T^AilJ) 

411 

20  L=J 

412 

IF(A(J)  .GE. 

T)  GO  TO  40 

413 

A(IJ)=A(J) 

414 

A(J)=a' 

415 

T=A(IJ) 

T)  GO  TO  40 

416 

IF(A(I)  .LE. 

417 

A(IJ)=A(I) 

418 

A(I)^ 

419 

T^ACIJ) 

420 

GO  TO  40 

421 

30  TT  =  A(L) 

422 

A(L)  =  A(K) 

423 

A(K)=TT 

424 

40  L=L-1 

425 

IF(A(L)  .GT. 

T)  GO  TO  40 

426 

50  K=K+1 

427 

IF(A(K)  .LT. 

T)  GO  TO  50 

428 

IF(K  .LE.  L) 

GO  TO  30 

429 

IF(L-I  .LE. 

J-K)  GO  TO  60 

430 

IL(M)=I 

431 

IU(M)=L 

432 

I=K 

433 

M=M+1 

434 

GO  TO  80 

435 

60  IL(M)=K 

436 

IU(M)=J 

437 

J=L 

438 

M=M+1 

439 

GO  TO  80 

440 

70  M=M-1 

441 

IF(M  .EQ.  0)  RETURN 

442 

I=IL(M) 

443 

J=IU(M) 

444 

80  IF(J-I  .GE. 

11)G0  TO  10 

445 

IF(I  .EQ.  II)  GO  TO  5 

446 

1=1-1 

447 

90  1=1+1 

448 

IFCI  .EQ.  J)  GO  TO  70 

449 

IF(A(I)  .LE 

A(I+1))  GO  I 

450 

T  =  A(I+1) 

451 

K=I 

452 

100  A(K+1)=A(K) 

453 

K=K-1 

454 

IF(T  .LT.  A(K))  GO  TO  IOC 

455 

A(K+1)=T 

456 

GO  TO  90 

457 

END 

NUMBER 

OF  WAPJ^INGS  IN 

PROGRAM  UNIT: 

NUMBER 

OF  ERRORS  IN 

PROGRAM  UNIT: 

NUMBER 

OF  WARNINGS  IN 

COMPILATION  : 

NUMBER 

OF  ERRORS  IN 

COMPILATION  : 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 
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1  c 

2  C 

3 

4 

5 

6 

7 

8 
9 

10  C 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43  C 

44 

45 

46 

47 

48  C 

49 

50 

51 

52 

53 

54  C 


SIMTBED  DRIVER  FOR  BETA-L-LAPLACE  TRANSFORM  AR  PROCESS 

.  SMTB12  . 

REAL*4  Y(6500),YMIN,  YMAX,  V(8) ,RHO,LL,ALPHA 
CHARACTER*120  T1,T2,T3,T4,T5 
REAL*8  IXl, 1X2, 1X3, 1X4, 1X5, IX 

INTEGER  N,  M,  NE(8),  L,  D,  RG,  SEI,  SVS,  NEST,NCOLRNDX( 3) 
EXTERNAL  BM0M,BCRES1 ,BBBB, ROBUST 

REAL  VMSE(8,5),  VMX1(8,4) ,VMX2(8,4) ,VMX3(8,4) ,VMX4(8,4) ,VMX5(8 
COMMON  ALPHA, LL 


RST 

■RST 


N/6000/ 

M/  20/ 

NE/  20,60,100, 150 , 200 , 250 ,350,500/ 
L/  8/ 

D/  4/ 

RG/  1/ 

SEI/  0/ 

SVS/  0/ 

YMIN/  0./ 

YMAX/  0./ 

IX/  88771. DO/ 

IFILE  /!/ 

NPRT  /!/ 

MSF,  /!/ 

VMSE  /32*0. 8963,8*0/ 

IPR  /O/ 

IBIV  /O/ 

IRSTR  /!/ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

data 

*  .95  Using  Robust  Least  Squares  estimator  (C=4. 2)'/ 

DATA  T3/  '***Rho(. 8963)  of  SqrtBeta  L  laplace  AR  r.  v.  s 

*  .95  Using  moment  estimator'/ 

DATA  T4/  '***Rho( . 8963)  of  SqrtBeta  L  laplace  AR  r.vs. 

*  .95  Using  Cressie  Estimator'/ 

DATA  T5/  ' ***Rho( . 8963)  of  SqrtBeta  L  laplace  AR  r.vs. 

*  .95  Using  Priestly  Estimator*^/ 

DATA  ICOLOR/1/  IBWPRT/1/  NCPRT/3/NCOLRNDX/l,2,7/ 

0PEN( 06 ,FILE=' bf 1.  OUT' ,ERR=999 , 10STAT=IER) 

0PEN(05,FILE='C0N  ' ,ERR=999 ,IOSTAT=IER) 

OPEN(02,FILE='bfl.RST' ,ERR=999,IOSTAT=IER,FORM='UNFORMATTED' , 
C  ACCESS=' SEQUENTIAL') 

0PEN(01,FILE='Bfl.DAT' ,FORM=' FORMATTED' ,ACCESS=' SEQUENTIAL' ) 

-  GENERATOR  PARAMETERS 
NEST=4 
NSR=3 
LL=  .95 
ALPHA=0. 84 

IX1=IX 

IX2=IX 

IX3=IX 

IX4=IX 

IX5=IX 


RST 
RST 
,4)  RST 
RST 


RST 

RST 

RST 

RST 

RST 

RST 

RST 


RST 

RST 

RST 

RST 


,  A=.84, 

L= 

.  A=.84, 

L= 

> 

II 

00 

.F' 

L= 

,  A=.84, 

L= 

RST 


RST 

RST 

RST 

RST 
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55  C .  RST 

56  C 

57  CALL  SIMTBED(IXl,IX2,IX3,IX4.IX5,y,N,M,NE,L,D,NSR,RG,SEI,SVS, 

58  *  YMIN.YMAX, NEST, robust, t2,BCRESl,T4,BM0M,T3,BBBB,T5,BM0M,T3,IFILE 

59  *  ,NPRT,MSE,VMSE,IPR,VMX1,VMX2,VMX3,VMX4,VMX5,IBIV,IRSTR,IC0L0R, 

60  *  IBWPRT.NCPRT.NCOLRNDX) 

61  STOP 

62  C 

63  999  CONTINUE 

64  WRITE(6,*)  '******  error  OPENING  FILE  1,  2  or  6  ’ 

65  END  RST 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

66  INCLUDE  'BELARl.  for' 

67  SUBROUTINE  BELARK SEED, ALPHA, L,N,X) 


68  C  THIS  SUBROUTINE  GENERATES  CORRELATED  L  LAPLACE  R. V. S  USING  THE 

69  C  BETA  SQUARE  ROOT  TRANSFORMATION  AND  THE  L  LAPLACE  DISTRIBUTION 

70  C  THE  L  LAPLACE  DISTRIBUTION  IS  GENERATED  AS  THE  DIFFERENCE  OF 

71  C  2  GAMMA(L,1)  RANDOM  VARIABLES. 

72  REAL*8  SEED 

73  REAL*4  ALPHA, L, X(*) ,Y(5100) ,A(5100) ,B(5100) ,E,F 

74  INTEGER  N 

75  C  FIRST  GENERATE  THE  L  LAPLACE  STREAM  OF  R.  V.  S 

76  C  THIS  WAS  FOR  USING  IMSL  SSTAT18A  RANDOM  NUMBER  GENERATORS 

77  C  CALL  RNSET( 12345678) 

78  CALL  LGAMPC(SEED,X,N,L) 

79  CALL  LGAMPC(SEED,Y,N,L) 

80  DO  10  1=1, N 

81  10  Y(I)=X(I)-Y(I) 

82  C  NOW  GENERATE  THE  BETA  R. V. S  (2  STREAMS) 

83 

84  CALL  LBETPC(SEED,A,N,L*ALPHA,L*(1-ALPHA)) 

85  CALL  LBETPC( SEED, A, N,L*(1 -ALPHA ),L*ALPHA) 

86  C  WRITE(5,*)(A(I),I=1,N) 

87  C  WRITE(5,-^)(B(I),I=1,N) 

88 

89  C  A(I)  IS  NOW  BETA( L* ALPHA, L*(l -ALPHA)) 

90  C  B(I)  IS  NOW  BETA(L*( 1-ALPHA), L*ALPHA) 

91  X(1)=Y(1) 

92  DO  12  1=2, N 

93  C  WRITE(5,50)'A' ,A(I),’B’ ,B(I),’I' ,I 

94  50  FORMATC  ' ,A,E15.  6,A,E15. 6,A,I4) 

95  C  CHECK  FOR  UNDERFLOW  BEFORE  SQRT  IS  DONE 

96  IF(A(I).LE. lE-7)  THEN 

97  C  WRITE(5,*)'A(I)' ,A(I) 

98  A(I)=lE-7 

99  E=A(I)**0.5 

100  ELSE 

101  C  WRITE(5,*) 'ROOTING  A.  ,I 

102  E=A(I)**0.5 

103  ENDIF 

104  IF(B(I). LE. lE-7)  THEN 

105  C  WRITE(5,*)'B(I)' ,B(I) 

106  B(I)=lE-7 


J 


I2I 


107  F=B(I)**0. 5 

108  ELSE 

109  C  WRITE(5,*)'R00TING  B. .. '.I 

110  F=B(I)**o.  3 

111  ENDIF 

112 

113  C  A  MINUS  SIGN  AT  THE  START  OF  LINE  12  INDICATES  WE  ARE  CONTSTRUCTING 
llA  C  NEGATIVE  CORRELATIONS. 

115 

116  12  X(I)=-X(I-1)*E+Y(I)*F 

117  RETURN 

118  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

119  INCLUDE  'BMOM. for' 

120  SUBROUTINE  BMOM( IX,N,EVAL) 

121  C  LAG  1  SERIAL  CORRELATION  OF  BETA  L  LAPLACE  R. V. S  ,  RH0=0. 7996 

122  C  USING  XBAR  TO  ESTIMATE  MU 

123  C  L  AND  ALPHA  OF  THE  BETA  AR  PROCESS  ARE  PASSED  TO  THE 

124  C  GENERATOR  BELARl  THROUGH  COMMON  STORAGE 

125  REAL*8  IX 

126  REAL*4  X( 600 ) .MEAN, ALPHA, L 

127  COMMON  ALPHA, L 

128  CALL  BELARK IX, ALPHA, L,N,X) 

129  SUM=0 

130  SUM 1=0 

131  DO  1  1=1, N 

132  1  SUM=SUM+X(I) 

133  MEAN=SUM/N 

134  SUM=0 

135  DO  2  1=2, N 

136  SUM=SUM+( X( I ) •MEAN)*( X( I - 1 ) -MEAN) 

137  2  SUM1=SUM1+(X(I)-MEAN)**2 

138  EVAL=SUM/SUM1 

139  C  WRITE(5,*)'SER.  COR  =  ' ,EVAL 

140  RETURN 

141  END 


NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

142  INCLUDE  'BBBB. for' 

143  SUBROUTINE  BBBB( IX,N,EVAL) 

144  C  COMPUTES  THE  LAG  1  CORR  COEFF  ESTIMATOR  USING  THE  PRIESTLY  FORMULA 

145  C  THE  BETA  LAPLACE  PROCESS  HAS  ALPHA  AND  L  PASSED  BY 

146  C  COMMON  STOR/.GE. 

147  REAL*8  IX 

148  REAL*4  X(600) ,MEAN,MEANINPU,STDINPU,A,B,XBAR1,XBAR2,MUHAT 

149  REAL  SUM 1,SUM2, ALPHA, L 

150  COMMON  ALPHA, L 

151  C  WRITE (5,*) 'ENTERED  BPRIES  N:  ' ,N,L, ALPHA 

152  CALL  BELARK IX, ALPHA, L,N,X) 

153  A=0 

154  B=0 
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155  XBAR1=0 

156  XBAR2=0 

157  SUM 1=0 

158  SUM2=0 

159  DO  1  1=1, N-1 

160  A=A+X(I)*X(I) 

161  B=B+X(I)*X(I+1) 

162  XBAR1=XBAR1+X(I) 

163  1  XBAR2=XBAR2+X(I+1) 

164  C  WRITE(5,*)'I:  ' , I , '  X( I) ' ,X(I) , ' A:  ',A,'B:  ’ ,B, 'XBARl:  ' .XBARl, 'XBA 

165  C  *R2:  ' ,XBAR2 

166  XBAR1=XBAR1/(N-1) 

167  XBAR2=XBAR2/(N-1) 

168  1'1UHAT=(A*XBAR2-B*XBAR1)/((A-B)+((N-1)*XBAR1*(XBAR2-XBAR1))) 

169  DO  2  1=1, N-1 

170  SUM1=SUM1+(X( I) -MUHAT)*(X( I+l) -MUHAT) 

171  2  SUM2=SUM2+(X(I)-MUHAT)**2 

172  EVAL=SUM1/SUM2 

173  C  WRITE(5,*)'SUM1;  ' ,SUM1,'SUM2;  ’ ,SUM2 

174  C  WRITE ( 5, *)'PREISTLY  MUHAT'  MUHAT 

175  C  WRITE(5,*) 'XBARl:  ’, XBARl XBAR2:  ' ,XBAR2 

176  C  WRITE(5,*)'A:  ',A,'  B:  ',B,'  N:  '  ,N 

177  C  WRITE(5,*)'X»»>  '  ,(X(I),I=1,N) 

178  C  WRITE(5,*) 'PRIESTLY  RHO:  ' ,EVAL 

179  RETURN 

180  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

181  INCLUDE  'ROBUST. for' 

182  SUBROUTINE  ROBUST(SEED,N,EVAL) 

183  C  THIS  ROUTINE  GENERATES  A  STREAM  OF  R. V. S,  AND  THEN  PERFORMS  ROBUST 

184  C  REGRESSION  ON  THEM  TO  ESTIMATE  RHO. 

185  C  THE  CURRENT  STREAM  IS  AR(1)  NORMAL  R. V. S. 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196  C 

197 

198  1 

199 

200 
201 
202 

203  C 

204 

205 


REAL*8  SEED 

REAL*4  X(600),Y(600),B(1),XX(1,1),XXI(1,1),XY(1,1) 

REAL*4  RMED 1 , RMED2 , RMED3 , SR 1 , SR2 , SR3 , S Y , CR , W( 600 ) , U( 600 ) 

REAL*4  WX(600,1) ,WY(600),EVAL 

INTEGER  N,I,IN 

COMMON  ALPHA, L 

DATA  CY/1.0/CR/4.2/CY/1.0/ 

DATA  NN/l/IPAS/5/ 

1X2=1 

CALL  BELARKSEED, ALPHA, L,N,X) 

CONSTRUCT  X  AND  Y  VECTORS  FROM  X  ARRAY 
DO  1  1=1, N-1 
Y(I)=X(I+1) 

IN=N-1 

IX1=IN 

CALL  R0BREG(X,Y,B,IN,NN,IX1,IX2,CR,XX,XXI,XY,W,U,WX,WY,IPAS) 
EVAL=B(1) 

WRITE(5,*)'EVAL:  ' ,EVAL 

RETURN 

END 
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NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 


206  SUBROUTINE  R0BREG(X,Y,B,M,N,IX1,IX2,C,XX,XXT,XY,W,U,WX,WY,IPAS) 


207  C  ROBUST  REGRESSION  ON  Y=X*B  RRE 

208  C  IPAS=MAX  #  REGRESSION  PASSES.  1  FOR  STD  (I.E.  NON-ROBUST)  REGRESSION  RRE 

209  C  X=M  BY  N  MATRIX  CONTAINED  IN  AN  ARRAY  OF  DIM(IX1,IX2)  RRE 

210  C  Y=M-VECTOR  CONTAINED  IN  AN  ARRAY  OF  DIM(IXl)  RRE 

211  C  B=N-VECTOR  CONTAINED  IN  AN  ARRAY  OF  DIM(IX2)  RRE 

212  C  XX,XXI=WORK  ARRAYS  OF  DIM(IX2,IX2)  RRE 

213  C  W,U,WY=WORK  ARRAYS  OF  DIM(IXl)  RRE 

214  C  WX=WORK  MATRIX  OF  DIM(IX1,IX2)  RRE 

215  C  XY=WORK  ARRAY  OF  DIM(IX2)  RRE 

216  C  WK=W0RK  ARRAY  OF  DIM(N**2  +  3*N)  OR  LARGER  RRE 

217  C  C=CONSTANT.  USUALLY  =6.  RRE 

218 

219 

220 
221 


222  C  CRITERION  FOR  STOPPING  IS  WHEN  VARIATION  IN  CONST. TERM  <1%  RRE 

223  C  IT  USES  SEVERAL  SUBROUTINES  FROM  IMSL  FOR  MATRIX  INVERSION,  RRE 

224  C  MULTIPLICATION,  ETC.  ALSO  USES  PXSORT  TO  SORT  ARRAY.  RRE 

225  REAL*4  X( IXl , 1X2) ,XX( IX2,IX2) ,XXI( 1X2, 1X2) 

226  REAL*4  Y( 1X1) ,WK( 600) 

227  REAL*4  B( 1X2) ,W( 1X1) ,XY( 1X2) ,BB,WX( 1X1 , 1X2) ,WY( 1X1) 

228  REAL*4  U(IXl) ,C,S,AM,R,SS,SUM1 

229  NPAS=0  RRE 

230  ZER0=0  RRE 

231  C  SUPPRESS  ERROR  MESSAGES:  UNDERFLOW  AND  IMSL  RRE 

232  C  CALL  ERRSET(208,300,-1,1)  RRE 

233  C  CALL  UERSET(0 ,LEVOLD)  RRE 

234  AM=(M+1. )/2.  RRE 

235  IM=AM  RRE 

236  R=AM-IM  RRE 

237  B(l)=-999999.  RRE 

238  DO  5  1=1  ,M  RRE 

239  WY(I)=Y(I)  RRE 

240  DO  6  J=1,N  RRE 

241  WX(I,J)=X(I,J)  RRE 

242  6  CONTINUE  RRE 

243  5  CONTINUE  RRE 

244  C  RRE 

245  10  CONTINUE  RRE 

246  NPAS=NPAS+1  RRE 

247  C  CALL  VMULFM(WX,WX,M,N,N,IX1,IX1,XX,IX2,IER)  RRE 


248  C  VMULFM  PERFORMS  X  TRANSPOSE  X.  WE  CAN  DO  IT  WITH  A  DO  LOOP,  SINCE 

249  C  IN  THIS  CASE  X  IS  A  VECTOR.  RESULT  GOES  IN  XX  (DIM  1,1) 

250 

251  XX(1,1)=0 

252  DO  200  1=1, M 

253  200  XX(1,1)=XX(1,1)+WX(I,1)**2 

254  IER=0 

255  C  IF  (lER.  GT.  0)  WRITE  (6,109)  lER  RRE 

256  109  FORMAT( 'ERROR:  ' ,2110)  RRE 

257  C  CALL  VMULFM(WX,WY,M,N,1 ,IX1,IX1,XY,IX2,IER)  RRE 

258  C  VMULFM  PERFORMS  MATRIX  MULTIPLICATION.  WE  WILL  DO  IT  WITH  A  DO  LOOP 
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259 

C  SINCE  X  AND  Y  ARE  VECTORS.  RESULT  GOES  IN  XY  (DIM  1,1). 

260 

XY(1)=0 

261 

DO  201  1=1, M 

262 

201  XY(1)=XY(1)+WX(I,1)*WY(I) 

263 

IER=0 

264 

C  IF  (lER. GT. 0)  WRITE  (6,109)  lER 

RRE 

265 

C  CALL  LINV2F(XX,N, 1X2, XXI, ZERO, WK,IER) 

RRE 

266 

C  LINV2F  FINDS  THE  INVERSE  OF  A  MATRIX  (X  TRANSPOSE  X). 

WE  WILL  DO  IT 

267 

C  WITH  A  DO  LOOP,  SINCE  X  IS  A  VECTOR  IN  THIS  CASE.  RESULT  INTO  XXI. 

268 

269 

XXI(1,1)=1/XX(1,1) 

270 

271 

C  IF  (lER.  GT. 0)  WRITE  (6,109)  lER 

RRE 

272 

BB=B(1) 

RRE 

273 

C  CALL  VMULFF(XXI,XY,N,N, 1,1X2, 1X2, B, 1X2, lER) 

RRE 

274 

C  PERFORMING  X  TRANSPOSE  X  INVERSE  TIMES  X  TRANSPOSE  Y. 

RESULT  INTO 

275 

C  B  (DIM  1).  DONE  WITHOUT  A  SUB  CALL  IN  THIS  CASE,  SINCE 

WE'RE 

276 

C  DEALING  WITH  VECTORS. 

277 

B(1)=XY(1)*XXI(1,1) 

278 

279 

280 

C  IF  (lER. GT.  0)  WRITE  (6,109)  lER 

RRE 

281 

C  WRITE(6,101)(B(I),I=1,N) 

RRE 

282 

101  F0RMAT(5F20.  10) 

RRE 

283 

IF(NPAS  .GE.  IPAS)  GO  TO  99 

RRE 

284 

IF  (ABS(B(l)-BB)  .LT.  .01*ABS(BB))  GO  TO  99 

RRE 

285 

C  CALL  VMULFF(X,B,M,N, 1,1X1, 1X2, W,IX1,IER) 

RRE 

286 

C  YHAT  COMES  FROM  X  TIMES  B,  DONE  WITH  A  DO  LOOP  SINCE  WE 

HAVE  VECTORS. 

287 

DO  202  1=1, M 

288 

202  W(I)=X(I,1)*B(1) 

289 

290 

C  IF  (lER. GT. 0)  WRITE  (6,109)  lER 

RRE 

291 

C  COMPUTE  RESIDUALS  AND  MEDIAN  OF  ABSOLUTE  RESIDUALS 

RRE 

292 

DO  20  1=1, M 

RRE 

293 

W(I)=Y(I)-W(I) 

RRE 

294 

20  U(I)=ABS(W(I)) 

RRE 

295 

CALL  PXS0RT(U,1,M) 

RRE 

296 

C  WRITE(6,  499)  (U(I),I=1,M) 

RRE 

297 

499  F0RMAT(6F20.  10) 

RRE 

298 

105  FOR.MAT(8F10.  7) 

RRE 

299 

S=U(IM)  +  R*(U(IM+1)-U(IM)) 

RRE 

300 

S=C*C*S*S 

RRE 

301 

IF(S. LT.  lE-07)  THEN 

302 

c  WRITE(5,*)'S:  IN  ROBREG:  ' ,S, ’ (SET  1  lE-07)  U(IM) ’ , 

U(IM),'R’ , 

303 

c  *  R 

304 

S=l. E-07 

305 

ss=l. e-14 

306 

ELSE 

307 

SS=S**. 5 

RRE 

308 

END  IF 

309 

199  FORMAT( '  CS: ’ ,F20, 10) 

RRE 

310 

DO  40  1=1, M 

RRE 

311 

W(I)=W(I)*W(I)/S 

RRE 

312 

IF  (W(I)  .  LT.  1.  )  GO  TO  25 

RRE 

313 

C  FACTOR  IS  0.  IN  THIS  CASE 

RRE 

314 

WY(I)=0. 

RRE 
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315  DO  31  J=1,N  RRE 

316  WX(I,J)=0.  RRE 

317  31  CONTINUE  RRE 

318  GO  TO  40  RRE 

319  25  W(I)=(1”W(I))  RRE 

320  DO  35  J=1,N  RRE 

321  35  WX(I,J)=X(I.J)*W(I)  RRE 

322  WY(I)=y(I)*W(I)  RRE 

323  40  CONTINUE  RRE 

324  GO  TO  10  RRE 

325  99  CONTINUE  RRE 

326  RETURN  RRE 

327  END  RRE 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

328  C  PXS 

329  C  SUBROUTINE  PXSORT  (Ml)  PXS 

330  C  PXS 

331  C  PURPOSE  PXS 

332  C  PXS 

333  C  SUBROUTINE  PXSORT  IS  INTENDED  TO  REARRANGE  AN  ARRAY  OF  REAL*4  PXS 

334  C  DATA  INTO  ASCENDING  ORDER  BETWEEN  TWO  SPECIFIED  INDICES.  PXS 

335  C  PXS 

336  C  CALLING  SEQUENCE  PXS 

337  C  PXS 

338  C  CALL  PXS0RT(A,  II,  JJ)  PXS 

339  C  PXS 

340  C  ARGUMENTS  PXS 

341  C  PXS 

342  C  A  A  SINGLE  DIMENSIONED  ARRAY  OF  REAL*4  DATA  TO  BE  PXS 

343  C  SORTED  INTO  ASCENDING  ORDER.  DIMENSIONED  TO  AT  LEAST  JJ. PXS 

344  C  PXS 

345  C  II  THE  STARTING  INDEX  FOR  THE  ORDERING  OF  A,  PXS 

346  C  E.G.  ,  11=1  IF  THE  WHOLE  ARRAY  IS  TO  BE  SORTED.  PXS 

347  C  PXS 

348  C  JJ  THE  ENDING  INDEX  FOR  ORDERING  A.  PXS 

349  C  PXS 

350  C  USAGE  PXS 

351  C  PXS 

352  C  THE  ARRAY  A  WILL  BE  SORTED  INTO  INCREASING  ORDER  SO  THAT  PXS 

353  C  A(I)  <  A(I+1)  FOR  I  =  11,11+1,. .. ,JJ-2,JJ-1.  PXS 

354  C  PXS 

355  C  PXSORT  WILL  ONLY  SORT  REAL+4  DATA,  NOT  REAL*8,  INTEGER,  OR  PXS 

356  C  ALPHANUMERIC  DATA.  PXS 

357  C  PXS 

358  C  SUBROUTINES  REQUIRED  PXS 

359  C  PXS 

360  C  NONE.  PXS 

361  C  PXS 

362  C  METHOD  PXS 

363  C  PXS 

364  C  SINGLETON'S  VERSION  OF  THE  PARTITION  EXCHANGE  SORT  IS  PXS 

365  C  USED.  THE  PROGRAM  IS  ESSENTIALLY  COPIED  FROM  THE  ASSOCIATION  PXS 

366  C  FOR  COMPUTING  MACHINERY’S  ALGORITHM  247,  "SORTING  WITH  PXS 
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367  C 

368  C 

369  C 

370  C 

371  C 

372  C 

QT'a  r» 

MINIMAL  STORAGE. " 

PROGRAMMER:  IMPLEMENTED  AT  NPS  BY  D. W.  ROBINSON 

DATE:  APR  74 

PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

J  /  •)  U 

374  C 

PXS 

375 

SUBROUTINE  PXSORT( A , I I , JJ) 

PXS 

376  C 

PXS 

377 

DIMENSION  A(JJ),IU(16),IL(16) 

PXS 

378 

M=1 

PXS 

379 

I=II 

PXS 

380 

J=JJ 

PXS 

381 

5 

IF(I  .GE.  J)GO  TO  70 

PXS 

382 

10 

K=I 

PXS 

383 

IJ=(I+J)/2 

PXS 

384 

T=A(IJ) 

PXS 

385 

IF(A(I)  .LE.  T)  GO  TO  20 

PXS 

386 

A(IJ)=A(I) 

PXS 

387 

A(I)=T 

PXS 

388 

T=A( I J) 

PXS 

389 

20 

L=J 

PXS 

390 

IF(A(J)  .GE.  T)  GO  TO  40 

PXS 

391 

A(IJ)=A(J) 

PXS 

392 

A(J)^ 

PXS 

393 

T=A( IJ) 

PXS 

394 

IF(A(I)  .LE.  T)  GO  TO  40 

PXS 

395 

A(IJ)=A(I) 

PXS 

396 

A(I)=T 

PXS 

397 

T=A( IJ) 

PXS 

398 

GO  TO  40 

PXS 

399 

30 

rr  =  A(L) 

PXS 

400 

A(L)  =  A(K) 

PXS 

401 

A(K)=TT 

PXS 

402 

40 

L=L*1 

PXS 

403 

IF(A(L)  .GT,  T)  GO  TO  40 

PXS 

404 

50 

K=K+1 

PXS 

405 

IF(A(K)  .LT.  T)  GO  TO  50 

PXS 

406 

IF(K  .LE.  L)  GO  TO  30 

PXS 

407 

IF(L-I  .LE.  J-K)  GO  TO  60 

PXS 

408 

IL(M)=I 

PXS 

409 

IU(M)=L 

PXS 

410 

I=K 

PXS 

411 

M=M+1 

PXS 

412 

GO  TO  80 

PXS 

413 

60 

IL(M)=K 

PXS 

414 

IU(M)=J 

PXS 

415 

J=L 

PXS 

416 

M=M+1 

PXS 

417 

GO  TO  80 

PXS 

418 

70 

M=M-1 

PXS 

419 

IF(M  .EQ.  0)  RETURN 

PXS 

420 

I=IL(M) 

PXS 

421 

J=IU(M) 

PXS 

422 

80 

IF(J-I  . GE.  ll)GO  TO  10 

PXS 
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423 

IF(I  .EQ.  II)  GO  TO  5 

PXS 

424 

1=1-1 

PXS 

425 

90  1=1+1 

PXS 

426 

IF(I  .EQ.  J)  GO  TO  70 

PXS 

427 

IF(A(I)  .LE.  A(I+1))  GO  TO  90 

PXS 

428 

T  =  A(I+1) 

PXS 

429 

K=I 

PXS 

430 

100  A(K+1)=A(K) 

PXS 

431 

K=K-1 

PXS 

432 

IF(T  .LT.  A(K))  GO  TO  100 

PXS 

433 

A(K+1)^ 

PXS 

434 

GO  TO  90 

PXS 

435 

END 

PXS 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 

436  INCLUDE  'BCRESl. for' 

437  SUBROUTINE  BCRES1( IX,N,EVAL) 

438  C  COMPUTES  THE  LAG  1  CORR  COEFF  ESTIMATOR  USING  THE  CRESS IE  FORMULA 

439  C  THE  BETA  LAPLACE  PROCESS  HAS  ALPHA  AND  LPASSED  BY 

440  C  COMMON  STORAGE. 

441  C  USES  FUNCTION  AMEDI  (WHICH  USES  HEAPSORT  AND  HEAPIFY)  TO  GET  THE 

442  C  MEDIAN. 

443  REAL*8  IX 

444  REAL*4  X( 600) .MEAN, MEANINPU, MEDIAN, STDINPU, ALPHA, L 

445  COMMON  ALPHA, L 

446  CALL  BELARK IX, ALPHA, L,N,X) 

447  SUM 1=0 

448  SUM2=0 

449  MEDIAN=AMEDI(X,N) 

450  C  WRITE( 5,*) 'MEDIAN  =  '.MEDIAN 

451  C  WRITE(5.*)'X(I)  ' ,(X(I) ,I=1,N) 

452  DO  1  1=1, N-1 

453  SUM 1=SUM 1+SQRT( ABS ( X( I ) -X( 1+ 1 ) ) ) 

454  1  IF(ABS(X(I)-MEDIAN).GT.  0)SUM2=SUM2+SQRT(ABS(X(I)-MEDIAN)) 

455  EVAL=l-(((SUMl/SUM2)**4)/2) 

456  C  WRITE(5,*)'CRESS  =  ' ,EVAL  \ 

457  RETURN 

458  END 

NUMBER  OF  WARNINGS  IN  PROGRAM  UNIT:  0 
NUMBER  OF  ERRORS  IN  PROGRAM  UNIT:  0 


459  FUNCTION  AMEDI (X,N) 

460  C  THIS  ROUTINE  USES  A  SHELLSORT  AND  INDEXES  INTO  THE  REAL  ARRAY  X  TO  FIND 

461  C  THE  MEDIAN  OF  X  WITHOUT  REARRANGING  IT. 

462  C  THE  INDEXES  ARE  USED  AS  INTEGER*2  TO  CONSERVE  STORAGE. 

463  REAL*4  X(*) 

464  INTEGER*2  I,INDX(600) 

465  INTEGER  N 

466  DO  1  1=1, N 

467  1  INDX(I)=I 

468  C  WRITE(5,*) 'UNSORTED  LIST:  ' ,(X(INDX(I)) ,I=1,N) 

469  CALL  SRTNDX(X,N,INDX) 

470  C  WRITE(5,*)' SORTED  LIST:  ' ,(X( INDX( I) ) , 1=1 ,N) 
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471  IF(M0D(N,2).EQ.  0)THEN 

472  AMEDI=(X( INDX(N/2) )+X( INDX( N/2+1) ) )/2 


473 

ELSE 

474 

AMEDI=X( INDX(N/2+l)) 

475 

ENDIF 

476 

RETURN 

477 

END 

NUMBER  OF 

WARNINGS  IN  PROGRAM  UNIT:  0 

NUMBER  OF 

ERRORS  IN  PROGRAM  UNIT:  0 

'  478 

SUBROUTINE  SRTNDX(Y,N,INDX) 

479  C  INPLACE  SORT  USING  SHELL  ALGORITHM 

SMT 

480  C  USES  INDEXES  TO  SORT  BY  TO  PRESERVE 

ORIGINAL  ORDER  OF  Y  ARRAY 

481 

REAL  Y(*) 

482 

INTEGER*2  GAP , INDX(*) , ITEMP 

483 

INTEGER  N 

484 

LOGICAL  EXCH 

SMT 

485  C 

Sin 

486 

GAP=(N/2) 

SMT 

487  5 

IF  (.NOT. (GAP.  NE.  0))  GO  TO  500 

SMT 

488  10 

CONTINUE 

SMT 

489 

EXCH=. TRUE. 

SMT 

490 

K=N-GAP 

SMT 

491 

DO  200  1=1, K 

SMT 

492 

KK=I+GAP 

SMT 

493 

IF(.NOT.  (Y(INDX(I)).GT.Y(INDX(KK))))  GO  TO  100 

494 

ITEMP=INDX(I) 

495 

INDX(I)=INDX(KK) 

496 

1NDX(KK)=ITEMP 

497 

EXCH=.  FALSE. 

498  100 

CONTINUE 

499  200 

CONTINUE 

SMT 

500 

IF  (.NOT. (EXCH))  GO  TO  10 

SMT 

501 

GAP=(GAP/2) 

SMT 

502 

GO  TO  5 

SMT 

503  500 

CONTINUE 

SMT 

504 

RETURN 

SMT 

505 

END 

SMT 

NUMBER  OF 

WARNINGS  IN  PROGRAM  UNIT:  0 

NUMBER  OF 

ERRORS  IN  PROGRAM  UNIT:  0 

NUMBER  OF 

WARNINGS  IN  COMPILATION  :  0 

NUMBER  OF 

ERRORS  IN  COMPILATION  :  0 
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APPENDIX  D.  SMTBED  SOURCE  CODE  (VERSION  13) 


Source  File:  SMTB13.F0R  Options:  /b  /I  /x  07/18/88  20:50:28 

1  C  UPDATED  05-10-84  BY  LCU  TO  ADD  SERIAL  CORRELATION  SMT 

2  C  UPDATED  07-16-84  BY  LCU  TO  MULTIPLE  RUN  AND  SUMMARY  STATISTICS  PAGE  SMT 

3  C  UPDATED  07-30-84  BY  LCU  TO  ADD  NORMALIZED  QUANTILES  SMT 

4  C  UPDATED  10-25-84  BY  LCU  TO  CONVERT  TO  FORTRAN  77  SMT 

5  C  UPDATED  08-12-85  BY  LCU  TO  ALLOW  DEGREE  REGRESSION  UP  TO  6  ON  VAR.  SMT 

6  C  UPDATED  04-04-86  BY  LCU  TO  SAVE  STATS.  FROM  EACH  SUPER  REPL,  ON  FILE  SMT 

7  C  UPDATED  05-12-86  BY  LCU  TO  COMPUTE  MEAN  SQUARE  ERROR  SMT 

8  C  UPDATED  09-09-86  BY  LCU  TO  DO  PERCENTILE  PLOTS  SMT 

9  C  UPDATED  09-29-86  BY  LCU  TO  DO  BIVARIATE  HISTOGRAMS.  BUG  FIX  02-09-87  SMT 

10  C  UPDATED  06-10-87  BY  LCU  TO  ADD  RESTART  FEATURE  SMT 

11  C  UPDATE  12/87  BY  RLY  FOR  COLOR  PRINTER  SUPPORT  OF  COMBINED  BOXPLOTS 

12  C  UPDATE  4/88  BY  RLY  FOR  5  ESTIMATORS 

13  C  SMT 

14  C  PURPOSE  TO  GENERATE  REGRESSION  ADJUSTED  ESTIMATES  AND  BOX  PLOTS  SMT 

15  C  OF  ESTIMATES  OF  AN  INPUT  RAW  DATA  SERIES  X  CONTAING  M  SMT 

16  C  (REPLICATIONS)  OF  N  VALUES  EACH.  UP  TO  3  ESTIMATING  SMT 

17  C  FUNCTIONS  CAN  BE  USED.  THE  GRAPHS  CAN  ALL  BE  OF  THE  SAME  SMT 

18  C  SCALE  OR  SCALED  INDIVIDUALLY.  SMT 

19  C  *  THE  SERIES  X  IS  GENERATED  FROM  INSIDE  SIMTB  BY  USER  SMT 

20  C  *  PROVIDED  FUNCTION  SMT 

21  C  SMT 

22  C  DESCRIPTION  OF  PARAMETERS  SMT 

23  C  SMT 

24  C  *  GESTl,  GEST2,  GEST3 ,GEST4,GEST5: 

25  C  USER  SUBROUTINES  THAT  WILL  GENERATE  THE  DATA,SMT00220 

26  C  *  AND  THEN  COMPUTE  AN  ESTIMATE  FROM  IT.  SMT 

27  C  *  THE  ACTUAL  NAMES  USED  NAMES  MUST  BE  DECLARED  AS  EXTERNAL  SMT 

28  C  *  IN  THE  CALLING  PROGRAM.  CALLS  MUST  BE  AS  FOLLOWS:  SMT 

29  C  *  CALL  SUBROUTINE  NAME( IX,NX,EVAL)  SMT 

30  C  *  WHERE:  SMT 

31  C  *  IX=SEED  (INPUT  AND  OUTPUT  ARGUMENT)  SMT 

32  C  *  NX=NO.  OF  DATA  POINTS  TO  TO  GENERATE  SMT 

33  C  *  EVAL=VALUE  OF  ESTIMATOR  APPLIED  TO  THE  NX  DATA  POINTS  SMT 

34  C  *  NOTICE  THAT  PROGRAM  ASSUMES  THREE  SUBROUTINES  IN  THE  SMT 

35  C  *  ARGUMENTS.  WHEN  USING  LESS  THAN  3  ESTIMATORS  FILL  THE  SMT 

36  C  *  ARGUMENT  POSITIONS  WITH  DUMMY  VARIABLES  OR  JUST  REPEAT  SMT 

37  C  *  THE  LAST  ONE.  SMT 

38  C  SMT 

39  C  *  ISEEDl,  ISEED2,  ISEED3,ISEED4,  ISEED5: 

40  C  SEEDS  FOR  DATA  GENERATORS  1,  2  &  3.  SMT 

41  C  *  THE  SEEDS  ARE  UPDATED  (ADVANCED)  UPON  RETURN  FROM  SIMTB  SMT 

42  C  SMT 

43  C  *  Y  WORK  ARRAY  OF  SIZE  >=  M*N/NE(1))  SMT 

44  C  SMT 

45  C  N  NUMBER  OF  DATA  ELEMENTS  PER  SECTION  (N  IS  SAMPLE  SIZE).  SMT 

46  C  SMT 

47  C  M  NLTIBER  OF  SECTIONS  (REPLICATIONS).  SMT 

48  C  M  CANNOT  EXCEED  100  SMT 

49  C  SMT 


50  C 

51  C 

52  C 

53  C 

54  C 

55  C 

56  C 

57  C 

58  C 

59  C 

60  C 

61  C 

62  C 

63  C 

64  C 

65  C 

66  C 

67  C 

68  C 

69  C 

70  C 

71  C 

72  C 

73  C 

74  C 

75  C 

76  C 

77  C 

78  C 

79  C 

80  C 

81  C 

82  C 

83  C 

84  C 

85  C 

86  C 

87  C 

88  C 

89  C 

90  C 

91  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

99  C 

100  C 

101  C 

102  C 

103  C 

104  C 

105  C 


NE  INTEGER  ARRAY  OF  SIZE  8  CONTAINING  SUBSAMPLE  SIZES  FOR  N.  SMT 

THE  VALUES  OF  NE  MUST  BE  FROM  SMALLEST  TO  LARGEST.  SMT 

NO  ELEMENT  OF  THE  ARRAY  NE  CAN  BE  GREATER  THAN  N.  SMT 

SMT 

L  NUMBER  OF  SUBSAMPLE  SIZES  FROM  NE(8)  THAT  WILL  BE  USED  TO  SMT 

SECTION  N.  MUST  BE  BETWEEN  2  AND  8.  SMT 

IT  IS  ALSO  THE  NUMBER  OF  BOXPLOTS  THAT  WILL  BE  PRODUCED.  SMT 

SMT 

D  DEGREE  OF  REGRESSION  FOR  MEAN  AND  VARIANCE  REGRESSIONS.  SMT 

D  WILL  BE  REDUCED  BY  SIMTB  IF  THE  SAMPLE  IS  NOT  LARGE  SMT 

ENOUGH.  D  MUST  BE  1  TO  6.  D=0  WILL  IGNORE  REGRESSIONS.  SMT 

SMT 

NSR  NO.  OF  RUNS  TO  REPEAT  SIMTB  (>=1)  WITH  A  PAGE  OF  SMT 

SUMMARY  STATISTCS  AT  THE  END  WHEN  >1.  SMT 

SMT 

***  SCALING  ***  SMT 

SCALING  IS  ACCOMPLISHED  BY  TAKING  THE  SMALLEST  AND  THE  SMT 
LARGEST  ESTIMATE  VALUES  FROM  ALL  ESTIMATING  FUNCTIONS  SMT 
EVALUATED  ON  THE  SHORTEST  SECTION  LENGTH  (  NE(1)  ).  SMT 
THE  SEI  PARAMETER  ALLOWS  THE  USER  TO  SCALE  THE  GRAPHSSMT 
OF  EACH  ESTIMATOR  INDIVIDUALLY  OR  TO  SCALE  THEM  ALL  TO  SMT 
THE  SAME  SCALE.  SCALING  ALL  TO  THE  SAME  SCALE  IS  SMT 

ACCOMPLISHED  BY  TAKING  THE  MINIMUM  AND  MAXIMUM  ESTIMATESMT 
FROM  ALL  THE  ESTIMATORS  USING  NE(1)  SUBSAMPLE  SIZE.  SMT 


THE  RG  PARAMETER  ALLOWS  THE  USER  TO  RREDUCE  THE  VER-  SMT 
TICAL  SCALE  TO;  THE  UPPER  QUARTILE  DISTANCE  +1.5  TIMES  SMT 
INTERQUARTILE  DISTANCE  AS  THE  MAX  VALUE  AND  THE  LOWER  SMT 
QUARTILE  -  1.5  TIMES  THE  INTERQUARTILE  DISTANCE  AS  THE  SMT 
MIN  VALUE.  THE  INTERQUARTILE  DISTANCE  IS  COMPUTED  FROM  SMT 


THE  SAMPLE  OF  ESTIMATES  FROM  THE  NE(1)  SUBSAMPLE  SIZE.  SMT 
IF  THERE  ARE  NO  ESTIMATES  OUTSIDE  THESE  MIN  AND  MAX  SMT 
VALUES  THEN  THE  SCALE  IS  TO  THE  FIRST  VALUE  WITHIN.  SMT 
IF  THERE  ARE  ESTIMATES  OUTSIDE  THESE  LIMITS  THEN  THEY  SMT 
ARE  COUNTED  AND  THE  NUMBER  PRINTED  AT  THE  ENDS  OF  THE  SMT 
BOX  PLOTS.  SMT 


THE  SVS  PARAMET  ALLOWS  THE  USER  TO  SET  THE  VERTICAL  SMT 
SCALE.  WHEN  THE  VERTICAL  SCALE  IS  SET  THE  SEI  PARAMETER  SMT 
IS  IGNORED  AND  THE  VERTICAL  SCALE  BECOMES  YMIN  AND  YMAX. SMT 


SMT 

SMT 

RG  RG=0  DO  NOT  REDUCE  THE  VERTICAL  SCALE  OF  THE  GRAPHS.  SMT 

RG=1  REDUCE  GRAPHICS  VERTICAL  SCALE  TO  UPPER  (LOWER)  SMT 

QUARTILE  +  (-)  INTERQUARTILE  DISTANCE.  SMT 

SMT 

SEI  SEI=0  DO  NOT  SCALE  ESTIMATORS'  GRAPHS  INDIVIDUALLY.  SMT 

SEI=1  SCALE  ESTIMATORS'  GRAPHS  INDIVIDUALLY.  SMT 

SMT 

SVS  SVS=0  PROGRAM  WILL  CALCULATE  VERTICAL  SCALE.  SMT 

SVS=1  USER  SETS  VERTICAL  SCALE  TO  YMIN  AND  YMAX.  SMT 

SMT 

YMIN  LOW  VALUE  OF  VERTICAL  SCALE.  SET  BY  USER  WHEN  SVS=1  SMT 

SMT 

YMAX  HIGH  VALUE  OF  VERTICAL  SCALE.  SET  BY  USER  WHEN  SVS=1  SMT 

SMT 

NEST  NUMBER  OF  ESTIMATORS  THAT  WILL  BE  USED  TO  CALCULATE  SMT 

STATISTICAL  PARAMETER  FROM  X  DATA.  SMT 
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NEST  MUST  BE  1,2, 3, 4  OR  5. 


106 

C 

107 

C 

108 

c 

mi 

109 

c 

TTL2 

110 

c 

TTL3 

111 

c 

TTL4 

112 

c 

m5 

113 

c 

114 

c 

IFIL 

115 

c 

116 

c 

117 

c 

118 

c 

119 

c 

NPRT 

120 

c 

121 

c 

122 

c 

123 

c 

MSE 

124 

c 

125 

c 

126 

c 

VMSE 

127 

c 

128 

c 

I  PR 

129 

c 

130 

c 

131 

c 

VMXl 

132 

c 

VMX2 

133 

c 

VMX3 

134 

c 

VMX4 

135 

c 

VMX5 

136 

c 

137 

c 

IBIV 

138 

c 

139 

c 

140 

c 

RSTRT 

141 

c 

142 

c 

143 

c 

144 

c 

145 

c 

146 

c 

147 

c 

148 

c 

149 

c 

150 

c 

151 

c 

152 

c 

153 

c 

154 

c 

155 

c 

ICOLOR 

156 

c 

157 

c 

158 

c 

159 

c 

160 

c 

161 

c 

IBWPRT 

SMT 

TITLES  ASSOCIATED  WITH  EACH  ESTIMATOR  (1  THRU  5).  A  MAX  SMT 
OF  120  CHARACTERS  CAN  BE  USED  TO  DESCRIBE  EACH  ESTIMATOR.  SMT 
EACH  TITLE  MUST  BE  DECLARED  AS  CHARACTER* 120  STRINGS  SMT 


SMT 

0  -  DO  NOT  RECORD  STATS.  FROM  EACH  SUPER  REPL.  ON  FILE  SMT 
1  -  RECORD  STATISTICS  ON  FILE  UNIT  1  FOR  FURTHER  PROCESSNGSMT 


UNIT  1  FILE  IS  SEQUENTIAL,  FORMATTED.  THE  DATA  PLACED  SMT 

IN  THE  FILE  INCLUDES  LABELS  SMT 

SMT 

0  -  PRINT  DETAIL  FOR  UP  TO  3  SUPER  REPLICATIONS  SMT 

AND  PRINT  NORMALIZED  QUANTILE  PLOTS  (STANDARD  SETTING) SMT 

1  -  PRINT  ONLY  1  SUPER  REPL.  AND  NO  NORMALIZED  QUANTILE  SMT 

SMT 

0  -  DO  NOT  PRINT  MEAN  SQUARED  ERRORS  USING  VMSE  MATRIX  SMT 

1  -  PRINT  MEAN  SQUARED  ERRORS  WITH  VMSE  MATRIX  SMT 

SMT 

MATRIX  8X5  WITH  KNOWN  MEANS  ON  EACH  COL.  FOR  EACH  ESTIMATORSMT 

SMT 

0  -  DO  NOT  PRINT  PERCENTILE  PLOTS  SMT 

1  -  PRINT  PERCENTILE  PLOTS  SMT 

SMT 

3  MATRICES  8X4  EACH  WITH  VALUES  FOR  PERCENTILE  PLOTS  SMT 

EACH  REPRESENTING  8  VALUES  FOR  EACH  SECTION  SIZE  SMT 

(IF  L<8  PAD  WITH  ZEROES).  4  SUCH  SETS  MUST  BE  ENTERED  SMT 
FOR  EACH  MATRIX  SMT 

SMT 

0  -  DO  NOT  PRINT  BIVARIATE  HISTOGRAMS  SMT 

1  -  PRINT  BIVARIATE  HISTOGRAMS  SMT 

SMT 

0  -  THIS  IS  NOT  A  RESTART  RUN.  SMT 

1  -  THIS  IS  A  RESTART  RUN.  AT  THE  END  SAVE  RESTART  SMT 

VALUES  ON  UNIT  2.  AT  THE  BEGINNING  READ  UNIT  2  SMT 

AND  CONTINUE  EXECUTION  AT  THE  SUPER-REPLICATION  SMT 

WHERE  IT  WAS  LEFT  OFF.  IF  NO  FILE  EXISTS  FOR  SMT 

FOR  UNIT  2  IT  WILL  ASSUME  THIS  IS  THE  FIRST  RUN.  SMT 

UNIT  2  SHOULD  BE  OPENED  BY  THE  CALLING  PROGRAM  IF  SMT 

A  DIFFERENT  NAME  OF  THE  FORTRAN  DEFAULT  IS  TO  BE  SMT 

USED.  ON  VM/CMS  A  FILEDEF  WILL  DO  THE  SAME.  SMT 

SMT 


THE  RESTART  FILE  IS  TYPE  SEQUENTIAL  UNFORMATTED,  AND  SMT 
CAN  ONLY  BE  READ  BY  A  FORTRAN  PROGRAM.  USE  UNIT  2  SMT 
FOR  STATISTICS  FILE.  DEFAULT  UNFORMATTED  RECORD  SMT 

LENGTH  OF  1024  BYTES  IS  ADEQUATE. 

SMT 

0  -  NO  COLOR  PRINTOUT 

1  -  PRINT  COLOR  COMBINATION  OF  ESTIMATORS  FOR  THE 
ESTIMATORS  FOR  UP  TO  THREE  SAMPLE  SIZES  (NEED  AT 
LEAST  2  TO  MAKE  SENSE).  THIS  IS  IN  ADDITION  TO 
THE  REGULAR  PRINTOUTS,  WHICH  ARE  FLAGGED  SEPARATELY. 

0  -  DO  NOT  PRINT  THE  STANDARD  PRINTOUTS. 


132 


1 


162  C  1  -  PRINT  THE  STANDARD  PRINTOUTS. 

163  C 

164  C 

165  C  NOTE:  IF  BOTH  ICOLOR  AND  IBWPRT  ARE  ZERO,  NO  PRINTOUTS 

166  C  OCCUR. 

167  C 

168  C  NCPRT  -  NUMBER  OF  SAMPLE  SIZES  FOR  WHICH  TO  PRINT  COLOR  BOXPLOT 

169  C  COMBINATIONS.  MUST  BE  1,2,  OR  3. 

170  C 

171  C  NCOLRNDXC  )  -  ARRAY  INDEX  TO  NE(*);  USE  THESE  SAMPLE  SIZES  FOR  COLOR 

172  C  BOXPLOTS 

173  C 

174  C 

175  C 

175  C**********jHNr**<n)r*<r***'*<t ilr***** *'* '* *'* * k A* * ** ithinAIrk  *  kltirA *'*SMT 

177  C  SMT 

178  SUBROUTINE  SMTBED(ISEED1,ISEED2,ISEED3,ISEED4,ISEED5, 

179  *  Y,N,M,NE,L,D,NSR,RG,SEI,SVS,YMIN,YMAX,NEST,GESTl,TTLl,GEST2,TrL2, 

180  *  GEST3,TTL3,GEST4,TrL4,GESf5,TTLS,IFIL,NPRT, 

181  *  MSE,VMSE,IPR,VMX1,VMX2,VMX3,VMX4,VMX5, 

182  *  IBIV,RSTRT, ICOLOR, IBWPRT, NCPRT, NCOLRNDX) 

183  PARAMETER  (NBR0WS=500) 

184  real*8  ISEED1,ISEED2,ISEED3,ISEED4,ISEED5,  ISEED 

185  CHARACTER*!  COLRPLT( 122,50,5) ,COLRXIS( 122,2) ,BLK 


186  CHARACTER* 120  TTLl,  TTL2,TTL3,TTL4,TTL5  SMT 

187  CHARACTER*8  LABEL(7) 

188  REAL  Y(1),GV(2),  VMSE(8,5),BA(7),BS(7),BV(7),V(7)  SMT 

189  REAL  VMX1(8,4),  VMX2(8,4),  VMX3(8,4),COLRSTAT(8,7,5)  SMT 

190  REAL  VMX4(8,4),VMX5(8,4) 

191  REAL  BIVl(NBROWS,8),BIV2(NBROWS,8),BIV3(NBROWS,8),BIV4(NBROWS,8)  SMT 

192  REAL  TX(NBROWS),  TY(NBR0WS),DLH(4)  SMT 

193  INTEGER  NE( 8) ,RG,SEI ,SVS,SM,  IFIL  SMT 

194  INTEGER  D,L, NEST, TEST,  IBPTR(8)  SMT 

195  INTEGER  RSTRT,  NNE(8),  NC0LRNDX(3)  SMT 

196  REAL  VYMAX(5),VYMIN(5)  SMT 

197  REAL*8  GST1(8,7,2),  GPV1(8,11,2)  SMT 

198  REAL*8  GST2(8,7,2),  GPV2(8,11,2)  SMT 

199  REAL*8  GST3(8,7,2),  GPV3(8,11,2)  SMT 

200  REAL*8  GST4(8,7,2),  GPV4(8,11,2)  SMT 

201  REAL*8  GST5(8,7,2),  GPV5(8,11,2)  SMT 

202  REAL*8  GBA1(7,2),  GBV1(7,2),  GBS1(7,2),  GW1(7,2)  SMT 

203  REAL*8  GBA2(7,2),  GBV2(7,2),  GBS2(7,2),  GW2(7,2)  SMT 

204  REAL*8  GBA3(7,2),  GBV3(7,2),  GBS3(7,2),  GW3(7,2)  SMT 

205  REAL*8  GBA4(7,2),  GBV4(7,2),  GBS4(7,2),  GW4(7,2)  SMT 

206  REAL*8  GBA5(7,2),  GBV5(7,2),  GBS5(7,2),  GW5(7,2)  SMT 

207  DATA  GSTl/ 112*0. DO/,  GPV1/176*0.  DO/  SMT 

208  DATA  GST2/ 112*0. DO/,  GPV2/ 176*0. DO/  SMT 

209  DATA  GST3/112*0.D0/,  GPV3/ 176*0. DO/  SMT 

210  DATA  GST4/ 112*0.  DO/,  GPV4/ 176*0. DO/  SMT 

211  DATA  GST5/ 112*0. DO/,  GPV5/176*0. DO/  SMT 


212  DATA  GBA1/14*0.  DO/,  GBV1/14*0.  DO/ ,  GBS1/14*0.  DO/ ,  GW1/14*0.D0/  SMT 

213  DATA  GBA2/14*0.D0/,  GBV2/14*0.  DO/ ,  GBS2/14*0.  DO/,  GW2/14*0.D0/  SMT 

214  DATA  GBA3/14*0.D0/,  GBV3/14*0.  DO/ ,  GBS3/14*0.  DO/ ,  GW3/14*0.D0/  SMT 

215  DATA  GBA4/14*0.  DO/,  GBV4/14*0.  DO/ ,  GBS4/14*0.  DO/ ,  GW4/14*0.D0/  SMT 

216  DATA  GBA5/14*0.D0/,  GBV5/14*0. DO/ ,  GBS5/14*0. DO/ ,  GVV5/14*0.D0/  SMT 

217  DATA  BLK/'  '/ 
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218  C  SMT 

219  C  ---  SAVE  BASIC  RUN  PARAMETERS  &  TITLES  ON  STATISTICS  FILE  SMT 

220  IFCIFIL  .EQ.  l)WRITE(l,560)N,M.NE,L,D,NSR,NEST,TTLl,TTL2,TrL3,  SMT 

221  *TrL4,Tn.5 

222560  FORMATC SAMPLE  SIZE:  ‘ ,110, 'REPLICATIONS:  ',110, 

223  *  /'SUBSAMPLE  SIZES: '/8I10/'L  =  ' ,110, 'DEGREE  REG:  ',110, 'SUPER 

224  *-REPS:  '.110, /'NO.  ESTIM.  :  ‘ ,I10,/5(A120/)) 

225  C  SMT 

226  C  ---  DETERMINE  CASE  OF  RESTART.  IRST=0  NO  RESTART  SMT 

227  C  IRST=1  IS  1ST  RUN  (SAVE  VALUES  AT  END)  SMT 

228  C  IRS1^2  IS  CONTINUATION  OF  PREVIOUS  RUN  SMT 

229  INSR=1  SMT 

230  WRITE(5,555) 

231  555  formate'  SMILED  -  A  Simulation  Test  Bed  (Version  13.0,  April  1988) 

232  *'/'  (Reversion) _  START  OF  RUN') 

233  C  IF  THERE  IS  ONLY  ONE  ESTIMATOR.  CAN'T  COMBINE  FOR  COLOR  OUTPUT 

234  IF(NEST.EQ.  1)ICOLOR=0 

235  IRST=RSTRT  SMT 

236  IF(RSTRT  . EQ.  0)  GO  TO  9004  SMT 

237  REWIND  2  SMT 

238  READ(2,END=9003)  NN.MM,NNE,LL,IDD,NNSR,NNEST,NSEI ,  SMT 

239  *  ISEED1,ISEED2,ISEED3,  ISEED4, ISEED5 .VYMIN.VYMAX  SMT 

240  IF(NN.NE.  N  .OR.  MM.  NE.  M  .OR.  LL.  NE.  L  .OR.  IDD.  NE.  D  .OR.  SMT 

241  *  NSR.  LE.NNSR  .OR.  NSEI.NE.  SEI  .OR.  NNEST.  NE.  NEST)  GO  TO  9002  SMT 

242  DO  9001  1=1,8  SMT 

243  IF(NNE(I).NE.NE(I))  GOTO  9002  SMT 

244  9001  CONTINUE  SMT 

245  IRST=2  SMT 


246  C 

247  C  THESE  READ  STATEMENTS  ARE  BROKEN  UP  SO  THE  DEFAULT  UNFORMATTED 

248  C  RECORD  LENGTH  WILL  HOLD  THE  DATA,  AND  THE  USER  DOESN'T  HAVE  TO 

249  C  WORRY  WITH  RUNTIME  PARAMETERS  ON  HIS  COMPILED  PROGRAM 

250  C 

251  READ(2,END=9006)((GPV1(I,J,1),I=1,8),J=1,11) 

252  READ(2,END=9006)((GPV1(I,J,2),I=1,8),J=1,11) 

253  READ(2,END=9006)GST1 

254  READ(2,END=9006)GBA1,GBV1,GBS1,GVV1  SMT 

255 


256  IF(NEST  .  GE.  2)  THEN 

257  READ(2,END=9006)((GPV2(I,J,1),I=1,8),J=1,11) 

258  READ(2,END=9006)((GPV2(I,J,2),I=1,8) ,J=1,11) 

259  READ(2,END=9006)GST2 

260  READ(2,END=9006)GBA2,GBV2,GBS2,GVV2  SMT 

261  ENDIF 

262  IF(NEST  .  GE.  3)  THEN 

263  READ(2,END=9006)((GPV3(I,J,1),I=1,8),J=1,11) 

264  READ(2,END=9006)((GPV3(I,J,2),I=1,8),J=1,11) 

265  READ(2,END=9006)GST3 

266  READ(2,END=9006)GBA3,GBV3,GBS3,GVV3  SMT 

267  ENDIF 

268  IF(NEST  .  GE.  4)  THEN 

269  READ(2,END=9006)((GPV4(I,J,1),I=1,8),J=1,11) 

270  READ(2,END=9006)((GPV4(I,J,2),I=1,8),J=1,11) 

271  READ(2,END=9006)GST4 

272  READ(2,END=9006)GBA4,GBV4,GBS4,GVV4  SMT 

273  ENDIF 
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274 

IF(NEST  .GE.  5)  THEN 

275 

READ(2,END=9006)((GPV5(I,J,1),I=1,8),J=1,11) 

276 

READ(2,END=9006)((GPV5(I,J,2),I=1,8),J=1,11) 

277 

READ(2,END=9006)GST5 

278 

READ(  2 ,  END=9  006 )  GBA5 ,  GBV5 .  GBS5 ,  GW5 

SMT 

279 

ENDIF 

280 

C 

— 

FIX  VERTICAL  SCALE  TO  USE  YMIN.YMAX  COMPUTED  IN  PREVIOUS  RUN 

SMT 

281 

SVS=1 

SMT 

282 

C 

START  SUPER-REPLICATIONS  COUNT  FOLLOWING  WHERE  LEFT  OFF 

SMT 

283 

INSR=NNSR+1 

SMT 

284 

GO  TO  50 

SMT 

285 

9002 

COITTINUE 

SMT 

286 

C 

— 

ERROR  IN  A  RESTART  RUN.  NEW  PARMS  NOT  COMPATIBLE  WITH  OLD  ONES 

SMT 

287 

WRITE(5,*)  'ARGUMENTS  FOR  RESTART  DO  NOT  AGREE  WITH  VALUES 

SMT 

288 

* 

r  'FOUND  ON  FILE  UNIT  2.  THEY  ARE:  ' 

SMT 

289 

WRITE(5,*)  'N,M,L,D,NSR,NEST,SEI=' ,NN,MM,LL, IDD.NNSR.NNEST.NSEI 
WRITE(5,*)  'NE:',  (NNE(I),  1=1, LL) 

SMT 

290 

SMT 

291 

STOP 

SMT 

292 

C 

— 

TABLES  NOT  PRESENT  FOR  ALL  ESTIMATORS 

SMT 

293 

9006 

CONTINUE 

SMT 

294 

WRITE(5,*)  '  ***  ERROR:  RESTART  FILE  DOES  NOT  HAVE  TABLES  FOR’, 

SMT 

295 

* 

f  '  ALL  ESTIMATORS’ 

SMT 

296 

STOP 

SMT 

297 

C 

SMT 

298 

9003 

CONTINUE 

SMT 

299 

C 

— 

RESTART  FILE  NOT  EXISTENT.  ASSUME  1ST  RUN 

SMT 

300 

IRST=1 

SMT 

301 

9004 

CONTINUE 

SMT 

302 

C 

SMT 

303 

C 

SET  SEI  TO  0  FOR  NO  INDIVIDUAL  SCALING  IF  WE  ARE  DOING  COLOR  PLOTS 

304 

C 

305 

IFdCOLOR.  EQ.  1)SEI=0 

306 

C 

307 

IF(SVS.EQ.  1)  THEN 

SMT 

308 

DO  9011  1=1,5 

SMT 

309 

VYMAX(I)=YMAX 

SMT 

310 

VYMIN(I)=YMIN 

SMT 

311 

9011 

CONTINUE 

SMT 

312 

ENDIF 

SMT 

313 

SM=NE(1) 

SMT 

314 

MN  =  M*N 

SMT 

315 

LT=L-1 

SMT 

316 

IFCLT.EQ.  0)  GO  TO  13 

SMT 

317 

DO  11  1=1, LT 

SMT 

318 

11=1+1 

SMT 

319 

IF(NE(I).GT.NE(I1))WRITE(6,110) 

SMT 

320 

11 

CONTINUE 

SMT 

321 

13 

TEST=0 

SMT 

322 

IF(NEST.  EQ.  1  .OR.  NEST.EQ.  2  .OR.  NEST.  EQ.  3.  OR.  NEST.  EQ.  4.  OR. 

323 

4 

'  NEST. EQ.  5)  GO  TO  2 

SMT 

324 

WRITE(5,106) 

SMT 

325 

TEST=1 

SMT 

326 

2 

IF(M.  GE.  l.AND.M.  LE.  100)  GO  TO  3 

SMT 

327 

WRITE(5,104) 

SMT 

328 

TEST=1 

SMT 

329 

3 

IF(L.  GE.  l.AND.  L.  LE.8)  GO  TO  4 

SMT 

135 


330  WRITE(5,103)  SMT 

331  TEST=1  SMT 

332  4  IF(D.  LE.  6)  GO  TO  5  SMT 

333  WRITE(5,108)  SMT 

334  TEST=1  SMT 

335  5  CONTINUE  SMT 

336  IF(NE(L)  . LT.  N)  GO  TO  6  SMT 

337  WRITE(5,107)  SMT 

338  TEST=1  SMT 

339  6  CONTINUE  SMT 

340  IF(NSR  .GE.  1)  GO  TO  7  SMT 

341  WRITE(5,111)  SMT 

342  TEST=1  SMT 

343  7  CONTINUE  SMT 

344  IF  (TEST.NE.  0)  GO  TO  8001  SMT 

345  C  SMT 

346  C  BYPASS  SCALE  CALCULATION  WHEN  FIXED  SMT 

347  IF  (SVS  .  EQ.  1)  G9  TO  50 

349  C  *  COMPUTE  SCALE  FOR  EACH  ESTIMTOR 

351  ISEED=ISEED1  SMT 

352  DO  10  IK=1,1  SMT 

353  C  FIND  VERTICAL  SCALE  FOR  1ST  ESTIMATOR.  SMT 

354  CALL  SECEST(GEST1,ISEED,N,M,NE(IK),Y,KP)  SMT 

355  IF(RG.EQ.  1)  CALL  DELET0(Y,KP,VYMAX(1),VYMIN(1))  SMT 

356  IF(RG.NE. 1)  CALL  MAXMIN(Y,KP,VYMAX(1),VYMIN(1))  SMT 

357  YMIN=VYMIN(1)  SMT 

358  YMAX=VYMAX(1)  SMT 

359  10  CONTINUE  SMT 

360  C  SMT 

361  C  FIND  VERTICAL  SCALE  FOR  2ND  ESTIMATOR.  SMT 

362  IF(NEST  . LT.  2)  GO  TO  40  SMT 

363  ISEED=ISEED2  SMT 

364  DO  20  IK=1,1  SMT 

365  CALL  SECEST(GEST2,ISEED,N,M,NE(IK),Y,KP)  SMT 

366  IF(RG. EQ. 1)  CALL  DELETO(Y,KP,VYMAX(2),VYMIN(2))  SMT 

367  IFCRG.NE. 1)  CALL  MAXMIN(Y,KP,VYMAX(2),VYMIN(2))  SMT 

368  YMIN=AMIN1(YMIN,  VyMIN(2))  SMT 

369  YMAX=AMAX1(YMAX,  VYMAX(2))  SMT 

370  20  CONTINUE  SMT 

371  C  SMT 

372  C  FIND  VERTICAL  SCALE  FOR  3RD  ESTIMATOR.  SMT 

I  373  IFCNEST  .  LT.  3)  GO  TO  40  SMT 

374  ISEED=ISEED3  SMT 

375  DO  30  IK=1,1  SMT 

376  CALL  SECEST(GEST3,ISEED,N,M,NE(IK),Y,KP)  SMT 

377  IF(RG.EQ. 1)  CALL  DELETO(Y,KP,VYMAX(3),VYMIN(3))  SMT 

378  IFCRG.NE. 1)  CALL  MAXMIN(Y,KP, VYMAX( 3), VYMIN( 3))  SMT 

379  YMIN=AMIN1(YMIN,  VYMIN(3))  SMT 

I  380  YMAX=AMAX1(YMAX,  VYMAX(3))  SMT 

381  30  CONTINUE  SMT 

382  C  SMT 

383  C  FIND  VERTICAL  SCALE  FOR  4TH  ESTIMATOR.  SMT 

384  IFCNEST  .  LT.  4)  GO  TO  40  SMT 

385  ISEED=ISEED4  SMT 

I 


136 


386  DO  31  IK=1,1  SMT 

387  CALL  SECEST(GEST4,ISEED,N,M,NE(IK),Y,KP)  SMT 

388  IFCRG.EQ. 1)  CALL  DELET0(Y,KP,VYMAX(4),VYMIN(4))  SMT 

389  IF(RG.NE. 1)  CALL  MAXMIN(Y,KP,VYMAX(4),VYMIN(4))  SMT 

390  YMIN=AMIN1(YMIN,  VYMIN(4))  SMT 

391  YMAX=AMAX1(YMAX,  VYMAX(4))  SMT 

392  31  CONTINUE  SMT 

393  C 

394  C  FIND  VERTICAL  SCALE  FOR  5TH  ESTIMATOR.  SMT 

395  IFCNEST  . LT.  5)  GO  TO  40  SMT 

396  ISEED=ISEED5  SMT 

397  DO  32  IK=1,1  SMT 

398  CALL  SECEST(GEST5,ISEED,N,M,NE(IK),Y,KP)  SMT 

399  IF(RG,EQ. 1)  CALL  DELETO(Y,KP,VYMAX(5),VYMIN(5))  SMT 

400  IFCRG.NE. 1)  CALL  MAXMIN(Y,KP,VYMAX(5),VYMIN(5))  SMT 

401  YMIN=AMIN1(YMIN,  VYMIN(5))  SMT 

402  YMAX=AMAX1(YMAX,  VYMAX(5))  SMT 

403  32  CONTINUE  SMT 

404  40  CONTINUE  SMT 

405  C  ---  WHEN  SCALE  IS  SAME  FOR  ALL  USE  WIDEST  OF  ALL  THREE  SCALES  FOUND  SMT 

406  IF(SEI  .EQ.  0)  THEN  SMT 

407  DO  41  IK=1,5  SMT 

408  VYMIN(IK)=YMIN  SMT 

409  VYMAX( IK)=YMAX  SMT 

410  41  CONTINUE  SMT 

411  ENDIF  SMT 

412  C  SMT 

413  C  SMT 

414  C  PROCESS  BOXPLOTS  USING  VERTICAL  SCALE  AS  DETERMINED  SMT 

415  C  ONE  CALL  FOR  EACH  ESTIMATOR  USED.  SMT 

416  50  CONTINUE  SMT 

417  C  CLEAR  COLOR  PLOT  ARRAY 

418  CALL  CLRCOLR(COLRPLT)  SMT 

419  GV(1)=VYMIN(1)  SMT 

420  GV(2)=VYMAX(1)  SMT 

421  WRITE(5,552) 

422  552  FORMAT( /' PROCESSING  ESTIMATOR  #  l’) 

423  CALL  PRST(GEST1,ISEED1,N,M,NE,L,RG,D,VYMIN(1),VYMAX(1),  SMT 

424  *  Y,GV,TTL1,NSR,IFIL,  NPRT.MSE , VMSE( 1 , 1) ,  IPR,VMX1,  SMT 

425  *  IBIV,IBPTR,BIV1,  INSR,GPV1,GST1,GBA1,GBV1,GBS1,GVV1, 

426  *  IBWPRT,NCPRT,NCOLRNDX,COLRXIS,l,NEST,  SMT 

427  *  COLRPLT, COLRSTAT, BA, BV,BS,V,DLH,VSCALE,IWIDTH, LABEL) 

428  C  SMT 

429  IF  (NEST.  LT.  2)  GO  TO  80  SMT 

430  WRITE(5,553) 

431  553  FORMATC/' PROCESSING  ESTIMATOR  /^2’) 

432  CALL  PRST(GEST2,ISEED2,N,M,NE,L,RG,D,VYMIN(2),VYMAX(2),  SMT 

433  *  Y,GV,TTL2,NSR,IFIL,  NPRT,MSE,VMSE( 1,2) ,  IPR,VMX2,  SMT 

434  *  IBIV,IBPTR,BIV2,  INSR,GPV2,GST2,GBA2,GBV2,GBS2,GVV2,  SMT 

435  *  IBWPRT,NCPRT,NC0LRNDX,C0LRXIS,2,NEST, 

436  *  COLRPLT, COLRSTAT, BA, BV,BS,V,DLH,VSCALE,IWIDTH, LABEL) 

437  C  SMT 

438  IF  (NEST.  LT.  3)  GO  TO  80  SMT 

439  WRITE(5,554) 

440  554  FORMAT(/' PROCESSING  ESTIMATOR  #  3') 

441  CALL  PRST(GEST3,ISEED3,N,M,NE,L,RG,D,VYMIN(3),VYMAX(3),  SMT 
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497 


*  y,GV,TrL3,NSR,IFIL,  NPRT.MSE,VMSE( 1,3) ,  IPR.VMX3, 

*  IBIV,IBPTR,BIV3,  INSR,GPV3,GST3,GBA3,GBV3,GBS3,GW3, 

*  IBWPRT , NCPRT , NCOLRNDX , COLRXIS , 3 , NEST , 

*  COLRPLT , COLRSTAT , BA , BV , BS , V , DLH , VSCALE , IWIDTH , LABEL) 

C 

IF  (NEST,  LT.  4)  GO  TO  80 
WRITE(5,556) 

556  FORMATC/' PROCESSING  ESTIMATOR  #4') 

CALL  PRST(GEST4,ISEED4,N,M,NE,L,RG,D,VYMIN(4),VYMAX(4), 

*  Y,GV,TTL4,NSR,IFIL,  NPRT.MSE.VMSE( 1 ,4) ,  IPR,VMX4, 

*  IBIV,IBPTR,BIV4,  INSR,GPV4,GST4,GBA4,6BV4,GBS4,GW4, 

*  IBWPRT , NCPRT , NCOLRNDX , COLRXIS , 4 , NEST , 

*  COLRPLT , COLRSTAT , BA , BV , BS , V , DLH , VSCALE , IWIDTH , LABEL) 

C 

IF  (NEST.  LT.  5)  GO  TO  80 
WRITE(5,557) 

557  FORMAT(/' PROCESSING  ESTIMATOR  #5') 

CALL  PRST(GEST5,ISEED5,N,M,NE,L,RG,D,VYMIN(5),VYMAX(5), 

*  Y,GV,TrL5,NSR,IFIL,  NPRT,MSE,VMSE(1,5) ,  IPR,VMX5, 

*  IBIV,IBPTR,BIV4,  INSR,GPV5 ,GST5 ,GBA5 ,GBV5 ,GBS5 ,GVV5 , 

*  IBWPRT , NCPRT , NCOLRNDX , COLRXIS , 5 , NEST , 

*  COLRPLT , COLRSTAT , BA , BV , BS , V , DLH , VSCALE , IWIDTH , LABEL) 

C 

80  CONTINUE 
C 

C  IF  COLOR  FLAG  NOT  SET,  SKIP  COLOR  OUTPUT  SECTION 

C  IF  WE  ARE  ON  SECOND  STAGE  OF  A  RESTART  RUN,  DON'T  DO  THE  COLOR  PART. 

IF( ICOLOR. EQ.  0.  OR.  IRST.  EQ. 2)GOTO  340 
C 

C  OUTPUT  SECTION  FOR  COLOR  COMBINED  BOXPLOTS 
C  OUTPUT  SECTION  FOR  COLOR  COMBINED  BOXPLOTS 
C  OUTPUT  SECTION  FOR  COLOR  COMBINED  BOXPLOTS 
C  OUTPUT  SECTION  FOR  COLOR  COMBINED  BOXPLOTS 
C 
C 

WRITE(6,325)N,M,D 

325  FORMATCl' ,5X,'SMTB  COMBINED  ESTIMATOR  BOXPLOTS:  SAMPLE  SIZE:' 

*  ,17,'  NO.  REPLICATIONS:  ',14,'  DEG  REGRESSION:  ',12/'  ',131('-')) 

DO  303  K=50,l,-1 
IF(MOD(K,5).  NE.  0)GO  TO  304 

YLABEL=(K-DLH( 2) ) /VSCALE+YMIN 
WRITE(6,622)YLABEL 
622  FORMATC  ',G8.  2,'-') 

CALL  SETCOLR(l) 

WRITE( 6 , 322 ) ( COLRPLT( I ,K, 1) , 1=1 , IWIDTH) 

WRITE( 6 , 322) (COLRPLT( I ,K, 1) , 1=1 , IWIDTH) 

CALL  SETCOLR(O) 

WRITE(6,364) 

CALL  SETCOLR(2) 

WRITE( 6 , 322)(COLRPLT( I ,K,2) , 1=1 , IWIDTH) 

WRITE( 6 , 322 ) ( COLRPLT( I ,K, 2) , 1=1 , IWIDTH) 

322  FORMAT('+' ,9X,122A1) 

CALL  SETC0LR(6) 

WRITE( 6 , 322 ) (C0LRPLT( I , K, 3 ) , 1=1 , IWIDTH) 
WRITE(6,322)(COLRPLT(I,K,3),I=l,IWIDTH) 

CALL  SETCOLR(3) 

I 


SMT 

SMT 


SMT 

SMT 


SMT 

SMT 

SMT  j 


SMT 

SMT 


SMT 

SMT 

SMT 


SMT 

SMT 
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498  WRITE(6,322)(C0LRPLT(I,K,4),I=1,IWIDTH) 

499  WRITE(6 , 322)(C0LRPLT( I ,K,4) , 1=1 , IWIDTH) 

500  CALL  SETCOLR(O) 

501  WRITE(6,322)(C0LRPLT(I,K, 5), 1=1, IWIDTH) 

502  WRITE(6,322)(C0LRPLT(I,K, 5), 1=1, IWIDTH) 

503  GOTO  303 

504  304  CONTINUE 

505  WRITE(6,363) 

506363  FORMAT(9X,' I') 

507  CALL  SETCOLR(l) 

508  WRITE(6,322)(COLRPLT( I, K,l), 1=1, IWIDTH) 

509  WRITE(6, 322)(C0LRPLT( I, K,l), 1=1, IWIDTH) 

510  CALL  SETCOLR(O) 

511  WRITE(6,364) 

512364  FORMAT('+' ,131X,' I ') 

513  CALL  SETC0LR(2) 

514  WRITEC  6 , 322 ) ( COLRPLT( I , K , 2 ) , 1=1 , IWIDTH) 

5 15  WRITEC  6 , 322 ) ( COLRPLTC I ,K , 2 ) , 1=1 , IWIDTH) 

516  CALL  SETC0LR(6) 

517  WRITE(6,322)(C0LRPLT(I,K,3),I=1,IWIDTH) 

518  WRITE(6,322)( COLRPLTC I ,K , 3) , 1=1 , IWIDTH) 

519  CALL  SETCOLRC3) 

520  WRITEC6,322)CCOLRPLTCI,K, 4), 1=1, IWIDTH) 

521  WRITEC6,322)CCOLRPLTCI,K, 4), 1=1, IWIDTH) 

522  CALL  SETCOLRCO) 

523  WRITEC6,322)CCOLRPLTCI,K, 5), 1=1, IWIDTH) 

524  WRITEC 6, 322 )C COLRPLTC I, K, 5), 1=1, IWIDTH) 

525  303  CONTINUE 

526  CALL  SETCOLRCO) 

527  WRITEC 6, 326 )CCOLRXISC 1,1), 1=1, IWIDTH) 

528326  FORHATC9X,'+' ,122A1,'+') 

529  WRITEC6,327)CCOLRXISCI,2),I=l,IWIDTH) 

530  327  FORMATC10X,122A1) 

531  DO  390  J=1,NEST 

532  WRITEC6.370)(NECNC0LRNDXCI)),I=1,NCPRT) 

533370  FORMATC  OSUBSAMPLE  SIZE;  ' , 18X, 3( 18 ,6X) ) 

534  WR ITE  C  6 , 3  7 1 ) J , C  COLRSTATC  NCOLRNDXC I ) , 1 , J ) , 1= 1 , NCPRT ) 

535  371  FORMATC  ESTIMATOR  ',11,':  MEAN:  ',8X,3G14.4) 

536  WRITEC6,372)C  COLRSTATC NCOLRNDXC I ) , 2 , J) , 1=1 , NCPRT) 

537372  FORMATC'  ',15X,'STD:  ',8X,3G14.4) 

538  WRITEC6,373)CCOLRSTATCNCOLRNDXCI),3,J), 1=1, NCPRT) 

539  373  FORMATC  ' , 15X, ' STD  MEAN:  ' ,5X,3G14. 4) 

540  390  CONTINUE 

541  IFCNEST.  GE.  DTHEN 

542  WRITEC6,374) 

543  374  FORMATC ' OESTIMATOR  1; ’ ) 

544  CALL  SETCOLRCD 

545  WRITEC 6, 375 )TTL1 

546  WRITEC 6, 375 )rrLl 

547375  FORMATC '+' ,14X,A120) 

548  CALL  SETCOLRCO) 

549  ENDIF 

550  IFCNEST.  GE.  2)  THEN 

551  WRITEC6,376) 

552  CALL  SETCOLRCO) 

553  376  FORMATC'  ESTIMATOR  2:') 
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1 

554 

CALL  SETC0LR(2) 

555 

WRITE(6,375)TrL2 

556 

WRITE(6,375)rrL2 

CALL  SETCOLR(O) 

1  558 

ENDIF 

559 

IFCNEST.  GE.  3)  THEN 

560 

WRITE(6,377) 

FORMATC ’  ESTIMATOR  3:  * ) 

561  377 

562 

CALL  SETC0LR(6) 

563 

WRITE(6,375)TTL3 

1  564 

WRITE(6,375)TTL3 

■  565 

CALL  SETCOLR(O) 

566 

ENDIF 

567 

IFCNEST. GE. 4)  THEN 

568 

WRITE(6,378) 

569  378 

FORMATC '  ESTIMATOR  4: ' ) 

570 

CALL  SETC0LRC3) 

571 

WRITEC6,375)TrL4 

572 

WRITEC6,375)TTL4 

573 

CALL  SETCOLRCO) 

574 

ENDIF 

575 

IFCNEST.  GE.  5)  THEN 

576 

WRITEC6,379) 

FORMATC '  ESTIMATOR  5:  ' ) 

,  577  379 

1  578 

CALL  SETCOLRCO) 

579 

WRITEC6,375)TTL5 

580 

WRITEC6,375)TTL5 

581 

ENDIF 

582  C  THIS  IS  THE  LAST  LINE  OF  OUTPUT.  IF  NO  COLOR,  PUT  IN  ON  LAST  SHEET. 

583  C 

END  UP  HERE  IF  DOING  RESTART,  OR  NO  COLOR  OUTPUT. 

1  584  340 

WRITEC6,122)  GV 

SMT 

■  585  C  - 

--  SAVE  RESTART  INFORMATION 

SMT 

586 

IFCIRST  .GT.  0)  THEN 

SMT 

587 

REWIND  2 

SMT 

588  C 

THESE  WRITE  STATEMENTS  ARE  BROKEN  UP  SO  THE  DEFAULT  UNFORMATTED 

589  C 

RECORD  LENGTH  WILL  HOLD  THE  DATA.  THE  USER  IS  THEN  UNCONCERNED  WITH 

,  590  C 

RUNTIME  PARAMETERS  TO  CHANGE  THE  RECORD  LENGTH  CR/M  FORTRAN) 

1  591  C 

592 

WRITE(2)N,M,NE,L,D,NSR,NEST,SEI,ISEED1,ISEED2,ISEED3,ISEED4, 

593 

*  ISEED5,VYMIN,VYMAX 

SMT 

594 

WRITEC2)CCGPV1CI,J,1),I=1,8),J=1,11) 

595 

WRITEC2)CCGPV1CI,J,2),I=1,8),J=1,11) 

596 

WRITEC2)GST1 

1  597 

WRITEC  2)GBA1  ,GBV1  ,GBS1  ,GW1 

SMT  1 

^  598 

IFCNEST  .GE.  2)  THEN 

599 

WRITEC2)C(GPV2CI,J,1),I=1,8),J=1,11) 

600 

WRITEC2)CCGPV2CI,J,2),I=1,8),J=1,11) 

601 

WRITEC 2)GST2 

602 

WR ITEC  2 )  GB  A2 ,  GBV2 ,  GBS2 ,  GW2 

SMT  1 

603 

ENDIF 

1 

1  604 

IFCNEST  .GE.  3)  THEN 

■ 

605 

WRITEC 2)CCGPV3C I, J,l), 1=1,8), J=l,ll) 

1 

606 

WRITEC2)CCGPV3CI,J,2),I=1,8),J=1,11) 

1 

607 

WRITEC 2)GST3 

1 

608 

WRITEC  2  )GBA3  ,GBV3  ,GBS3  ,GW3 

SMT  1 

, 

ENDIF 

1 

r 

1 

^  . 
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1 

610 

611 

612 

613 

IF(NEST  .GE.  4)  THEN 

WRITE(2)((GPV4(I,J,1),I=1,8),J=1,11) 

WRITE(2)((GPV4(I,J,2),I=1,8),J=1,11) 

WRITE(2)GST4 

614 

615 

616 

617 

618 
619 

WRITE( 2 ) GBA4 , GBV4 , GBS4 , GVV4 

ENDIF 

IFCNEST  .GE.  5)  THEN 

WRITE(2)((GPV5(I,J,1),I=1,8),J=1,11) 

WRITE(2)((GPV5(I,J,2),I=1,8),J=1,11) 

WRITE(2)GST5 

SMT 

620 

621 

WRITE(2)GBA5  ,GBV5  ,GBS5  ,GW5 

ENDIF 

sirr 

622 

WRITE(6,*)  '***  THIS  WAS  A  RESTART  RUN.  NSR  START/END=' 

.INSR.NSR 

SMT 

623 

ENDIF 

SMT 

624 

C 

SMT 

625 

C  ---  BIVARIATE  HISTOGRAMS 

SMT 

626 

C 

SOT 

627 

IFCIBIV  .EQ.  1  .AND.  NEST.  GT.  1)  THEN 

SOT 

628 

DO  120  K=1,L 

SOT 

629 

IBP=IBPTR(K) 

SOT 

630 

DO  201  1=1, IBP 

SOT 

631 

TX(I)=BIV1(I,K) 

SOT 

632 

TY(I)=BIV2(I,K) 

SOT 

633 

201  CONTINUE 

SOT 

634 

C 

SOT 

635 

WRITE(6,123)  'BIVARIATE  HISTOGRAM  FOR  ESTIMATORS  1  & 

2.  '  . 

SOT 

636 

*  '  SECTION  SIZE=' ,NE(K) 

SOT 

637 

CALL  BIHSPCCTX.TY,  IBP.Y) 

SOT 

638 

WRITE(6,*)  ' 1  -  ’ ,  TTLl 

SMT 

639 

WRITE(6,*)  '2  -  TTL2 

SOT 

640 

C 

SOT 

641 

IFCNEST  . LT.  3)  GO  TO  120 

SOT 

642 

DO  202  1=1, IBP 

SOT 

643 

TX(I)=BIV1(I,K) 

SOT 

644 

TY(I)=BIV3(I,K) 

SOT 

645 

202  CONTINUE 

SOT 

646 

WRITE(6,123)  'BIVARIATE  HISTOGRAM  FOR  ESTIMATORS  1  & 

3.  '  , 

SOT 

647 

*  '  SECTION  SIZE=’ ,NE(K) 

SOT 

648 

CALL  BIHSPCCTX.TY,  IBP.Y) 

WRITEC6,*)  '1  -  TTLl 

SOT 

649 

SOT 

650 

WRITEC6,*)  '3  -  ',  TTL3 

SOT 

651 

C 

SOT 

652 

DO  203  1=1, IBP 

SOT 

653 

TXCI)=BIV2CI,K) 

SOT 

654 

TYCI)=BIV3CI,K) 

SOT 

655 

203  CONTINUE 

SOT 

656 

WRITEC6,123)  'BIVARIATE  HISTOGRAM  FOR  ESTIMATORS  2  & 
*  '  SECTION  SIZE=' .NECK) 

3. 

SOT 

657 

SOT 

658 

CALL  BIHSPCCTX.TY,  IBP.Y) 

WRITEC6,*)  '2  -  TTL2 

SOT 

659 

SOT 

660 

WRITEC6,*)  '3  -  ' ,  TTL3 

SOT 

661 

120  CONTINUE 

SMT 

662 

ENDIF 

SOT 

663 

664 

665 

C  JUMP  TO  HERE  IF  AN  ERROR  EXISTS  IN  THE  INPUT  DATA.  RETURN 
8001  CONTINUE 

C 

• 

SOT 

SMT 


666  123  FORMATC 1' ,A45,  A13,I5)  SMT 

667  122  FORMATC/'  ***  WIDEST  Y  VALUES  FOUND:  YMIN=' ,G10. 4,  SMT 

668  *  ’  -  YMAX=' ,G10.4,  ’  ***SMTB***')  SMT 

669  103  FORMATC  ***  ERROR...!  MUST  BE  AN  INTEGER  BETWEEN  2  AND  8.  ***’)  SMT 

670  104  FORMATC  ***  ERROR. .. M  MUST  BE  AN  INTEGER  BETWEEN  1  AND  100.  ***')SMT 

671  106  FORMATC  ***  ERROR. ..NEST  MUST  BE  3  OR  LESS.  ***')  SMT 

672  107  FORMATC  ***  ERROR. .. N/NE( L)  MUST  BE  1  OR  GREATER  TO  COMPUTE',  SMT 

673  +'  STATISTICS.',/,'  INCREASE  N  OR  DECREASE  NE(L).  ***')  SMT 

674  108  FORMATC  ***  ERROR.  ..  D  MUST  BE  LESS  THAN  OR  EQUAL  TO  3.  ***')  SMT 

675  110  FORMATC  ***  WARNING...  NE  ARRAY  ELLEMENTS  ARE  NOT  IN  ORDER  OF  '/  SMT 

676  +'  INCREASING  SIZE.  IF  NE(1)  IS  NOT  SMALLEST  ELEMENT,  SCALING' /SMT 

677  +’  MAY  CAUSE  POINTS  TO  FALL  OUTSIDE  RANGE  OF  SCALE.  ' )  SMT 

678  111  FORMATC'  ***  ERROR.  ..NSR  MUST  NOT  BE  LESS  THAN  1  ***')  SMT 

679  END  SMT 

680  C  SMT 

681  SUBROUTINE  PRSTCGENEST,ISEED,N,M,NE,L,RG,UD,YMIN,YMAX,Y,  SMT 

682  *  GV,TrL,  NSR,  IFIL,  NPRT,MSE,VMSE,  IPR,VMX,  IBIV,IBPTR,BIV,  SMT 

683  *  INSR,GPVAL,GSTAT,GBA,GBV,GBS,GW,IBWPRT,NCPRT,NCOLRNDX,  SMT 

684  *  COLRXIS,IEST,NEST, 

685  *  COLRPLT,COLRSTAT,BA,BV,BS,V,DLH,VSCALE,IWIDTH,UBEL) 

686  PARAMETER  CNBROWS=500)  SMT 

687  C 

688  C  REGRESSION  ADJUSTED  ESTIMATE  SMT 

689  C  CALCULATES  ESTIMATES  FROM  USER  DATA  USING  "EST"  FUNCTION  SMT 

690  C  PLOTS  BASIC  OR  RETRENCHED  GRAPH  ON  LINE  PRINTER  SMT 

691  C  *  GENEST  =  SUBROUTINE  GENERATE  THE  DATA  AND  PRODUCE  ESTIMATE  SMT 

692  C  *  I SEED  =  SEED  FOR  GENEST  SMT 

693  C  N  =  NUMBER  OF  VALUES  IN  EACH  REPLICATION  CM*N  MUST  BE  <=  50000)  SMT 

694  C  M  =  NO.  OF  REPLICATIONS  CMUST  BE  <=  100)  SMT 

695  C  Y  =  USERS  VECTOR  WITH  M  CONSECUTIVE  BATCHES  OF  N  VALUES  EACH  SMT 

696  C  L  =  NO.  OF  SECTION  SIZES  CMUST  BE  BETWEEN  1  AND  8)  SMT 

697  C  NE  =  ARRAY  WITH  THE  L  SUBSAMPLE  SIZES  CMUST  BE  IN  ASCENDING  ORDER) SMT 

698  C  UD  =  DEGREE  OF  THE  REGRESSION  CMUST  BE  <=  6  &  <=  L-1  )  SMT 

699  C  GV=WIDEST  Y  VALUES.  PRINTED  ON  LAST  PLOT  TO  AID  IN  SETTING  SCALE  SMT 

700  C  NSR=NUMBER  OF  REPETITIONS  OF  THE  PLOT  C EXTRA  SUMMARY  PLOT  WHEN  >1)SMT 

701  C  INSR=START  SUPER-REPLICATION.  NORMALLY  1  EXCEPT  ON  RESTART  SMT 


702  C  IEST=NUMBER  OF  ESTIMATOR  WE  ARE  CURRENTLY  DEALING  WITH  Cl,2,OR3) 

703  C  IBWPRT=0-N0  STD  PRINTOUS  -  1  STD  PRINTOUTS 

704  C  NCPRT=?'/OF  SAMPLE  SIZES  FOR  WHICH  TO  PRINT  COLOR  BOXPLOTS 

705  C  NCOLRNDX=ARRAY  INDX  TO  NEC)  FOR  COLOR  BOXPLOTS 

706  C  COLRPLT=CHARACTER  3D  ARRAY,  1  SHEET  FOR  EACH  COLOR/ESTIMATOR 

707  C  ICLRLOCX=2D  ARRAY,  LOGS  OF  BOXPLOTS  IN  EACH  SHEET 

708  C  COLRXIS=2DARRAY,  CHAR.  COLOR  X  AXIS 

709  C 

710  C 

711  real*8  ISEED 

712  INTEGER  IBIV,IBPTRC8),NCOLRNDXC3),ICLRLOCXC5,3) 


713  CHARACTER*120  TTL  SMT 

714  CHARACTER*!  PLOTC 122 ,50) ,  CBAR,BLK,DASH,DOT,SYMC 11) ,XAXISC ^22,2) ,  SMT 

715  *  COLRPLTC122,50,5),COLRXISC122,2),TEMPLOTC122,50) 

716  CHARACTER*8  LABELC7)  SMT 

717  DIMENSION  NEC8)  SMT 

718  INTEGER  NBC8) ,LOCXC8) ,D1,IWIDTH,UD,D,LT,DT,RG,  DA,D1A  SMT 

719  REAL  BIVCNBROWS,8)  SMT 

720  REAL*4  PVALC8,11),  QVALC 11) .VNORMC 11) ,  VMSEC8)  SMT 

721  REAL*4  DLHC 4) .YC 1) ,GVC 2) ,  SVARC 8) ,COLRSTATC 8, 7 ,5)  SMT 


I 


I 
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722  REAL*4  RH( 8 , 100) ,STAT(8,7) ,VT(8) ,  VMX(8,4) ,VXCNT(8,4)  SMT 

723  REAL*8  SUM2 , SUM3 , SUM4  SMT 

724  REAL*4  RA(8. 7) ,RV(8 ,7) ,B(7 , 100) ,V( 7) ,BA( 7) ,BV( 7) ,BS( 7) ,RT(8) ,BT(8)SMT 

725  INTEGER  ISC0L(5)  SMT 

726  REAL*8  GSTAT(8,7,2) ,  GPVAL(8, 11 ,2)  SMT 

727  REAL*8  XSTAT(8,7,2) ,  XPVAL(8, 11,2)  SMT 

728  REAL*8  GBA(7,2),  GBV(7,2),  GBS(7,2).  GW(7,2)  SMT 

729  REAL*8  XBA(7,2),  XBV(7,2),  XBS(7,2),  XW(7,2)  SMT 

730  DATA  B/ 700*0./  SMT 

731  DATABLE/'  '/,  DASH/ '-’/,  CBAR/ ' 1' /,  DOT/ '.' /  SMT 

732  DATA  ISCOL/1,2,4,5,7/  SMT 

733  DATA  SYM/'&' ,’Q' ,'M' ,'Q' NSYM/11/  SMT 

734  DATA  QVAL/.Ol,  .025,  .05,  .10,  .25,  .5,  .75,  .90,  .  95,.  975,.  99/  SMT 

735  DATA  VN0RM/-2. 33,-1. 96,-1. 645,-1. 29,-. 67,  0. ,  SMT 

736  *  .67,1.29,1.645,1.96,2.33/  SMT 


737  DATA  ICSPCE/1/ 

738  JCSPCE=(ICSPCE+3)*NEST 

739  DO  401  1=1,7 

740  401  V(I)=0 

741  DLH(1)=1. 

742  DLH(2)=1. 

743  DLH(3)=122. 

744  DLH(4)=50. 

745  LABEL(1)='MEAN’ 

746  LABEL(2)='STD' 

747  LABEL(3)='STD  MEAN' 

748  LABEL(4)=' SKEWNESS' 

749  LABEL(5)='KURT0SIS’ 

750  LABEL(6)='M. S.E  ' 

751  LABEL(7)='SER.  COR.  ' 


752  C  ---  CLEAR  COUNTS  MATRIX  FOR  PERCENTILE  PLOT  SMT 

753  DO  1  1=1,8  SMT 

754  DO  2  J=l,4  SMT 

755  VXCNT(I,J)=0.  SMT 

756  2  CONTINUE  SMT 

757  1  CONTINUE  SMT 

758  D=MIN0(UD,L-1)  SMT 

759  C  ---  DEGREE  OF  REGRESSION  FOR  AVERAGES  LIMITED  TO  4  SMT 

760  DA=MIN(4,  D)  SMT 

761  D1=D+1  SMT 

762  D1A=DA+1  SMT 

763  1X1=8  SMT 

764  1X2=7  SMT 

765  MN=M*N  SMT 

766  1WIDTH=  IFIX(DLH(3))  SMT 

767  C  BUILD  REGRESSION  MATRICES  FOR  AVERAGES  AND  VARIANCES  SMT 

768  DO  84  K=1,L  SMT 

769  DO  86  J=1,D1  SMT 

770  T=FLOAT(NE(L))/FLOAT(NE(K))  SMT 

771  RA(K,J)=T**(J-1)  SMT 

772  RV(K,J)=T**(FLOAT(J)*.  5)  SMT 

773  86  CONTINUE  SMT 

774  84  CONTINUE  SMT 

775  C  SET  HORIZONTAL  XMIN,  XMAX  SMT 

776  XMIN=. 7*NE(1)  SMT 

777  XMAX=1. 2*NE(L)  SMT 
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778  C  ---  SCALING  FACTORS  FOR  REGR.  ,  QUANTILE  PLOT  &  NORM.  QUANTILE  (QVSC) 

779  VSCALE=(DLH(4)-DLH(2))/(YMAX-YMIN) 

780  HSCALE=(DLH(3)-DLH(1))/(XMAX-XMIN) 

781  QVSC  =(DLH(4)-DLH(2))/(3.  -(>3.)) 

782 

783 

784  WRITE( 5,*) 'COMPUTING  BOXPLOT  LOCATIONS' 

785 

786 

787  C  COMPUTE  LOCATION  OF  BOXPLOTS  ALONG  X-AXIS 

788  LAST=-1 

789  DO  5  K=1,L 

790  NB(K)=N/NE(K) 

791  LOCX(K)=(NE(K)-XMIN)*HSCALE  +  DLH(1)+.  5 

792  IF(LOCX(K).LT.  LAST+4)  L0CX(K)=LAST+4 

793  LAST=LOCX(K) 

794  5  CONTINUE 

795  IF(LOCX(L)  . GT.  120)  LOCX(L)=120 

796  C  COMPUTE  LOCATION  OF  COLOR  BOXPLOTS 

797  C  WE  WILL  DO  THIS  ONCE  ONLY.  CAN  DO  ALL  ESTIMATOR  LOCATIONS  FOR  COLOR 

798  C  USING  THE  FIRST  ESTIMATOR  POSITIONS  AND  OFFSETS. 

799  IF(IEST.  NE.  1)  GOTO  7 

800 

801  C  ICSPCE  IS  SPACING  FOR  COLOR  BOXPLOTS  (1  =>  1  SPACE  BETWEEN, 

802  C  0  =>  ADJACENT) 

803 

804  C  FIRST  COMPUTE  POSITIONS  OF  SECOND  ESTIMATOR  (CENTER) 

805 

806 

807  C 

808  C 

809  C 

810  C 

811  C 

812 

813 

814  C 

815 

816 

817 

818 

819  C 

820  C 

821  C 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 


DO  6  K=1,NCPRT 

USE  SAME  HORIZONTAL  SCALE  AS  DETERMINED  ABOVE  FOR  BW  BOXPLOTS 
WE  ARE  COMPUTING  THE  LOCATIONS  OF  THE  SECOND  PLOT  OF  EACH 
GROUP,  AND  WE  WILL  THEN  OFFSET  THE  OTHERS  BASED  ON  THE  SPACING 
COMPUTE  TENTATIVE  POSITION  BASED  ON  SCALE,  THEN  CHECK  BOUNDS 
KK=( NE( NCOLRNDXC K) ) -XMIN)*HSCALE+DLH( 1 )+.  5 

MINIMUM  BOXPLOT  POSITION  IS  6+ICSPCE,  FOR  CENTER( SECOND)  BOXPLOT 
IF(K.  EQ. 1)THEN 

IF(KK.  GE.  6+ICSPCE) ICLRLOCX( 2, 1)=KK 
IF(KK.  LT.  6+ICSPCE) ICLRLOCXC 2, 1)=6+ICSPCE 
ENDIF 

CHECK  THAT  THERE  IS  AT  LEAST  ( 3+ICSPCE)*NEST  NUMBER  OF  SPACES 
BETWEEN  EACH  GROUP  OF  PLOTS 

SO  THAT  ALL  THE  ESTIMATORS  WILL  FIT.  THIS  IS  JCSPCE. 

IFCK.EQ.  2)  THEN 

IF( KK- ICLRLOCXC  2 , 1 ) .  LT. JCSPCE ) 

*  ICLRLOCXC  2 , 2 )=ICLRLOCX( 2 , 1 )+JCSPCE 
IF(KK-ICLRLOCX(2,l).GE.  JCSPCE)ICLRLOCX(2,2)=KK 

ENDIF 

IFCK.EQ.  3)  THEN 

IF(KK-ICLRL0CX(2,2).  LT. JCSPCE) 

*  ICLRLOCXC  2 , 3 )=ICLRLOCX( 2 , 2 )+JCSPCE 

IFC KK- ICLRLOCXC  2 , 2) .  GE.  JCSPCE ) ICLRLOCXC  2 , 3 )=KK 
ENDIF 


SMT 

SMT 

SMT 

SMT 


SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 
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834  C 

NOW  OFFSET  THE  OTHER  ESTIMATOR'S  LOCATIONS  TO  EITHER  SIDE  OF  THESE 

835 

836 

IFCNEST. GE.  2) ICLRLOCXC 1 ,K)=ICLRLOCX( 2 ,K) -3-ICSPCE 

837 

IF(NEST.  GE.  3)ICLRLOCX(3,K)=ICLRLOCX(2,K)+3+ICSPCE 

838 

IF( NEST.  GE.  4) ICLRLOCX( 4 ,K)=ICLRLOCX( 2 , K)+6+ICSPCE+ICSPCE 

839 

IFCNEST.  GE. 5)ICLRLOCX(5,K)=ICLRLOCX(2,K)+9+3*ICSPCE 

840  C 

841  C 

IF 

THE  POSITION  OF  THE  RIGHTMOST  MEMBER  OF  THE  GROUP  OF  BOXPLOTS 

842  C 

EXCEEDS  THE  RIGHT  MARGIN,  MOVE  THEM  ALL  BACK  AN  AMOUNT  OF  THE 

843  C 

THE  DISTANCE  FROM  THE  MARGIN,  THEN  SET  THE  LAST  ONE  AT  THE  MARGIN 

844  C 

845 

IF(ICLRLOCX(NEST,K).GT.  120)  THEN 

846 

DO  8  1=1, NEST- 1 

847  8 

ICLRLOCXC I ,K)=ICLRLOCXC I ,K) -C ICLRLOCXC 5 ,K) -120) 

848 

ICLRLOCXC NEST, K)=120 

849 

ENDIF 

850  6 

CONTINUE 

851  7 

CONTINUE 

852  C 

853  C- 

LABEL  X-AXIS 

SMT 

854 

DO  115  1=1,122 

SMT 

855 

XAXISCI,1)=DASH 

SMT 

856 

XAXISCI,2)=BLK 

SMT 

857 

IFCIEST.EQ. 1)C0LRXISCI,1)=DASH 

858 

IFCIEST.  EQ.  l)COLRXISCI,2)=BLK 

859 

115 

CONTINUE 

SMT 

860 

DO  130  J=1,L 

SMT 

861 

IBPTRCJ)=0 

SMT 

862 

XAXIS  C  LOCXC  J ) , 1 ) =CB AR 

SMT 

863 

IK  =  NECJ) 

SMT 

864 

IX  =  LOCXC J) 

SMT 

865 

CALL  NUMPRTCIX,2,IK.XAXIS) 

SMT 

866 

130 

CONTINUE 

SMT 

867  C 

868  C 

THE  X  AXIS  POSITION  MARKER  IS  PLACED  AT  THE  POSITION  OF  THE  SECOND 

869  C 

BOXPLOT  FOR  COLOR  COMBINED  PLOTS 

870  C 

871 

IFCIEST. NE.  2) GOTO  132 

872 

DO  131  J=1,NCPRT 

873 

COLRXISC ICLRLOCXC lEST, J) , 1)=CBAR 

874 

IK=NECNCOLRNDXCJ)) 

875 

IX=ICLRLOCXCIEST,J) 

876 

CALL  NUMPRTCIX,2,IK,COLRXIS) 

877  131 

CONTINUE 

878  C 

FIND  NO.  OF  STATISTICS  TO  BE  CALCULATED  AT  EACH  SAMPLE  SIZE 

SMT 

879  132 

L1=0 

SMT 

880 

L2=0 

SMT 

881 

L3=0 

SMT 

882 

DO  21  1=1, L 

SMT 

883 

K1  =  M*CN/NECI)) 

SMT 

884 

IF  CK1.GE.2)  L1=I 

SMT 

885 

IF  CKl.GE.  3)  L2=I 

SMT 

886 

IF  CKl.GE.  4)  L3=I 

SMT 

887 

21 

CONTINUE 

SMT 

888 

DT=MINCD1,  LI) 

SMT 

889  C 

— 

CLEAR  GRANDTOTALS  FOR  SUMMARY  PAGE  EXCEPT  WHEN  RESTARTING 

SMT 

890 

IF(INSR  .EQ.  1)  CALL  CLRGT(GBA,GBV,GBS,GVV,GSTAT,GPVAL) 

SMT 

891  C 

SMT 

892  C 

—  . 

OUTER  LOOP  ADDED  07-16-84  TO  DO  MULTIPLE  RUNS  PER  NSR  PARAMETER 

SMT 

893  C 

SMT 

894 

DO  2000  ISREPsINSR,NSR 

SMT 

895 

WRITE(5,*)  'ESTIMATOR  '.TEST,'  SUPER-REP  ,ISREP, '  (OF  ',NSR,' 

)'SMT 

896  C 

CLEAR  PLOT  ARRAY,  BW  ONLY 

SMT 

897 

CALL  CLRPA(PLOT) 

SMT 

898  C 

899  C 

INITIALIZE  COUNTER  FOR  COLOR  PLOT  INDEX 

900  C 

901 

KCOUNT=l 

902 

DO  80  K=1,L 

SMT 

903 

WRITE(5,557)NE(K) 

904  557 

FORMAT(/' SUBSAMPLE  SIZE:  ’,15) 

905 

NBK=NB(K) 

SMT 

906  C 

SECTION  &  COMPUTE  ESTIMATORS  FOR  SIZE  K 

SMT 

907 

CALL  SECEST( GENEST , ISEED ,N,M,NE(K),Y,KP) 

SMT 

908  C 

AVERAGE  ESTIMATES  OF  SIZE  NE(K)  FOR  EACH  OF  M  REPLICATIONS 

SMT 

909 

KP=0 

SMT 

910 

DO  10  1=1, M 

SMT 

911 

RH(K,I)=0. 

SMT 

912 

DO  15  J=1,NBK 

SMT 

913 

KP=KP+1 

SMT 

914 

GV(1)=AMIN1(GV(1),  Y(KP)) 

SMT 

915 

GV(2)=AMAX1(GV(2),  Y(KP)) 

SMT 

916 

RH(K,I)=RH(K,I)+Y(KP) 

SMT 

917 

15 

CONTINUE 

SMT 

918 

RH( K , I )=RH( K , I ) /FLOAT( NBK) 

SMT 

919 

10 

CONTINUE 

SMT 

920  C 

COMPUTE  MEAN  AND  MOMENT  ESTIMATES 

SMT 

921 

CALL  CMPMOM(Y,KP,VMSE,MSE,K,  STAT,SVAR) 

SMT 

922 

DO  180  IM1=1,KP 

SMT 

923  C 

APPEND  TO  BIVARIATE  MATRICES 

SMT 

924 

IF(IBPTR(K)  .LT.  NBROWS)  THEN 

SMT 

925 

IBPTR(K)=IBPTR(K)+1 

SMT 

926 

BIV(IBPTR(K),  K)=Y(IM1) 

SMT 

927 

ENDIF 

SMT 

928  C 

— 

FREQUENCY  COUNTS  FOR  PERCENTILE  PLOTS 

SMT 

929 

IF(IPR  .EQ. 1)  THEN 

SMT 

930 

DO  181  IK=1,4 

SMT 

931 

IF(Y(IM1)  .LE.  VMX(K,IK))  VXCNT(K, IK)=VXCNT(K, IK)  +  1 

SMT 

932 

181 

CONTINUE 

SMT 

933 

ENDIF 

SMT 

934 

180 

CONTINUE 

SMT 

935 

CALL  BOXPRT(Y,KP,LOCX(K) ,PLOT,RG,XMIN,YMIN,XMAX,YMAX,VSCALE) 

SMT 

936  C 

FOR  COLOR  BOXPLOTS,  IF  K,  THE  INDEX  THROUGH  ALL  THE  SAMPLE  SIZES, 

937  C 

IS  EQUAL  TO  THE  INDEX  OF  SAMPLE  SIZES  SPECIFIED  FOR  COLOR  PLOTS, 

938  C  THEN  PREPARE  A  BOXPLOT  FOR  THIS  SAMPLE  SIZE,  AT  LOCATION  DETERMINED 

939  C  ABOVE.  MOVE  SHEET  OF  3D  PLOT  ARRAY  TO  TEMP  (2D  ARRAY),  CALL  BOXPRT,  AND 

940  C  THEN  RESTORE  SHEET  OF  3D  ARRAY. 

941  C 

942  C  IF  KCOUNT  GT  NCPRT  THEN  WE  HAVE  DONE  ALL  THE  SAMPLE  SIZES  FOR  THIS 

943  C  ESTIMATOR 

944  C 

945  IF(KCOUNT.GT.  NCPRT) GOTO  184 


946  IF(K.NE.NCOLRNDX(KCOUNT))GOTO  184 

947  C 

948  C  FOUND  A  SAMPLE  SIZE,  AND  NOW  WANT  A  COLOR  BOXPLOT 

949  C  FIRST  CLEAR  TEMPLOT  ARRAY,  AND  THEN  PUT  BOX  PLOT  IN  IT 

950  CALL  CLRPA( TEMPLOT) 

951  G 

952  C  FOR  SUPERREPS,  ONLY  DO  COLOR  COMBINATION  FOR  FIRST  SUPERREP 

953  IFdSREP.GT.  1)G0T0  182 

954  CALL  BOXPRTC Y,KP,ICLRL0CX( TEST, KCOUNT), TEMPLOT, RG,XMIN,YMIN,XMAX, 

955  *  YMAX,VSCALE) 

956  DO  183  KK=1,122 

957  DO  183  IKK=1,50 

958  183  IF(COLRPLT(KK,IKK,IEST).EQ.BLK)COLRPLT(KK,IKK,IEST)=TEMPLOT(KK,IKK 

959  Cj 

960  182  CONTINUE 

961  C 

962  C 

963  KC0UNT=KC0UNT+1 

964  C 


965  C  ---  STORE  QUANTILES  FOR  2ND  PAGE  PLOT  SMT 

966  184  DO  18  IQ=1,NSYM  SMT 

967  PVAL(K,IQ)=PCTL(Y,KP,QVAL(IQ),1)  SMT 

968  18  CONTINUE  SMT 

969  80  CONTINUE  SMT 

970  C  SMT 

971  C  IF  Dl.LT.  2  THEN  NO  REGRESSIONS  OR  PLOTING  CAN  BE  DONE  SMT 

972  C  SMT 

973  IFCDl.LT. 2)  GO  TO  113  SMT 

974  DO  92  K='1,M  SMT 

975  DO  47  J=1,L  SMT 

976  RT(J)=RH(J,K)  SMT 

977  47  CONTINUE  SMT 

978  CALL  RREG(RA,RT,BT,L,D1A,IX1,IX2)  SMT 

979  B(1,K)=BT(1)  SMT 

980  DO  23  KT=2,D1A  SMT 

981  B(KT,K)=BT(KT)*NE(L)**(KT-1)  SMT 

982  23  CONTINUE  SMT 

983  92  CONTINUE  SMT 

984  C  SMT 

985  C  AVERAGE  REGRESSION  COEFF.  OVER  M  REPLICATIONS  &  CALC.  VARIANCE  SMT 

986  CALL  C0EFF(B,M,D1A,  BA,BV,BS,V)  SMT 

987  C  SMT 

988  C  ESTABLISH  REGRESSION  LINE  &  ASYMPTOTE  SMT 

989  C  SMT 

990  DO  98  I=3,IWIDTH  SMT 

991  C  MAP  I  FROM  DEVICE  SPACE  TO  USER  SPACE  SMT 

992  UX=(I-DLH(1))/HSCALE  +  XMIN  SMT 

993  C  COMPUTE  THE  Y  VALUE  FROM  X  AND  THE  REGRESSION  COEFFICIENTS.  SMT 

994  UY=BA(1)  SMT 

995  DO  99  J=1,DA  SMT 

996  UY=UY+BA(J+1)/UX**J  SMT 

997  99  CONTINUE  SMT 

998  C  SMT 

999  C  MAP  THE  Y  VALUE  FROM  USER  SPACE  TO  DEVICE  SPACE  SMT 

1000  J=(Uy-YMIN)*VSCALE  +  DLH(2)  +  .5  SMT 

1001  IF(J  .LT.  1  .OR.  J  .GT.  50)  GO  TO  98  SMT 
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SMT 


1002  IF(PLOT(I,J)  .EQ.  BLK)  PLOT( I . J)=D0T 

1003  C  COMMENTED  OUT  THE  LINES  TO  PUT  REGRESSION  LINES  IN  COLOR  PLOT 


1004  C  IF( ISREP.  EQ.  1. AND.  COLRPLT( I . J, lEST).  EQ.  BLK) 

1005  C  C  COLRPLT(I,J,IEST)=DOT 

1006 

1007  98  CONTINUE  SMT 

1008  C  SMT 

1009  C  SCALE  ASYMPTOTE,  BETAO,  AND  PLOT  ACROSS  PLOT.  SMT 

1010  J=(BA(1)-YMIN)*VSCALE  +  DLH(2)  +  .5  SMT 

1011  IF(J  .LT.  1  .OR.  J  .GT.  50)  GO  TO  117  SMT 

1012  DO  120  I=3,IWIDTH  SMT 

1013  IF(PLOT(I,J)  .EQ.  BLK)  PLOT(I, J)=DASH  SMT 

1014  IFCISREP.EQ.  1.  AND.  COLRPLTd ,  J,IEST).  EQ.  BLK) 

1015  C  COLRPLT(I.J,IEST)=DASH 

1016  120  CONTINUE  SMT 

1017  C  SMT 

1018  C  REGRESSION  ON  VARIANCES  FROM  EACH  SEGMENT  WITH  A  VARIANCE.  SMT 

1019  C  SMT 

1020  117  CONTINUE  SMT 

1021  IF(DT. LT. 2)  GO  TO  113  SMT 

1022  DO  48  J=1,L  SMT 

1023  C  ---  MODIFIED  FOR  MEAN  SQUARE  ERROR  08-22-86  SMT 

1024  VT(J)=SVAR(J)*(NE(J)**0.5)  SMT 

1025  48  CONTINUE  SMT 

1026  CALL  RREG(RV,VT,V,L1,DT,IX1,IX2)  SMT 

1027  DO  77  1=1, DT  SMT 

1028  V(I)  =  V(I)*NE(L)**(FLOAT(I)/2. )  SMT 

1029  77  CONTINUE  SMT 

1030  C  ---  ACCUMUUTE  FOR  SUMMARY  STATISTICS  OVER  SUPER-REPLICATIONS  SMT 

1031  113  CONTINUE  SMT 

1032  CALL  CMPSUM(BA,BV,BS,V,DT,D1,L,STAT,PVAL,NSYM,  SMT 

1033  *  GBA,GBV,GBS,GVV,GSTAT,GPVAL)  SMT 


1034  C 

1035  C  UPDATE  COLOR  STATISTIC  MATRIX  WITH  STATS  FROM  THIS  ESTIMATOR 

1036  C 

1037  IFdSREP.  EQ.  1)  THEN 

1038  DO  450  1=1,8 

1039  DO  450  J=l,7 

1040  450  COLRSTAT(I,J,IEST)=STATd,J) 

1041  ENDIF 

1042  C 

1043  C  ---  SAVE  STATISTICS  FOR  THIS  SUPER  REPLICATION  SMT 

1044  C  -  USE  FORMATTED  FILE  FOR  EASE  IN  FURTHER  PROCESSING.  LABEL  THE  DATA 

1045  C  -  IN  THE  FILE 

1046  C 

1047  IF(IFIL. EQ. 1)  THEN 

1048  WRITE(1,458)TTL 

1049  458  F0RMAT(A120) 

1050  WRITE( 1,456) ISREP 

1051  456  FORMATC ’SUPER-REP  ’,110) 

1052  WRITE( 1,452) 

1053  452  FORMATC'SAMP  SIZE  MEAN  STD  SKEWNESS  KURTOSIS  SER  CORR 

1054  *') 

1055  DO  453  1=1, L 

1056  453  WRITE(l,451)NEd),(STATd,ISCOL(J)),J=l,5)  SMT 

1057  WRITE( 1,454) 
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1058  454 

FORMATC /' QUANT.  ROWS:  1  EA  FOR  .01  .025  .05  .1  .25  .5  .75  .9 

.  95 

1059 

*.975  .99') 

1060 

DO  457  J=l,ll 

1061  457 

WRITE(1,455)(PVAL(I,J),I=1.8) 

1062  455 

FORMATC 8G10.  4) 

1063  451 

FORMAT(I10,(5G10.4)) 

1064 

ENDIF 

1065  C 

SMT 

1066  C 

PRINT  ONLY  FIRST  3  PLOTS  WHEN  NPRT=0.  ONLY  1  PLOT  OTHERWISE 

SMT 

1067 

IFCNPRT.NE.  1  .AND.  ISREP  .  GT.  3  )  GO  TO  2000 

SMT 

1068 

IFCNPRT.EQ.  1  .AND.  ISREP  .  GT.  1  )  GO  TO  2000 

SMT 

1069  C 

IF  BWPRT  FLAG  IS  NOT  SET.  DONT  PRINT  THESE  STANDARD  PRINTOUTS 

1070 

IF( IBWPRT.  EQ.  0)GOTO  2000 

1071  C 

1072  C 

SMT 

1073  C 

PLOT  ************* 

SMT 

1074  C 

SMT 

1075 

WRITE(6,102) 

SMT 

1076 

WRITE(6,161)  N,M,D 

SMT 

1077 

WRITE(6,101) 

SMT 

1078 

DO  90  K=50,l,-1 

SMT 

1079 

IF(MOD(K,5).NE.  0)  GO  TO  85 

SMT 

1080 

YLABEL=(K-DLH(2))/VSCALE  +  YMIN 

SMT 

1081 

WRITE ( 6 ,103)  YLABEL, (PLOT( I ,K) , 1=1 , IWIDTH) 

SMT 

1082 

GO  TO  90 

SMT 

1083 

85 

CONTINUE 

SMT 

1084 

WRITEC  6 , 100 )  ( PLOT( I ,K) , 1=1 , IWIDTH) 

SMT 

1085 

90 

CONTINUE 

SMT 

1086 

WRITEC 6,106)  CXAXISC 1 , 1) , 1=1 , IWIDTH) 

SMT 

1087 

WRITEC 6,104)  CXAXISC 1 , 2) , 1=1 , IWIDTH) 

SMT 

1088 

WRITEC 6, 156) 

SMT 

1089 

WRITEC6,146)  CNECI),I=1,L) 

SMT 

1090 

WRITEC6,157)  LABELCD,  CSTATCK,  1)  ,K=1  ,L) 

SMT 

1091 

11 

WRITEC6,157)  LABELC2),  CSTATCK, 2) ,K=1 , LI) 

SMT 

1092 

WRITEC6,157)  LABELC3),  CSTATCK, 3) ,K=1 , LI) 

SMT 

1093 

IFCMSE  .EQ.  1)  WRITEC6,157)  LABELC6),  C STATCK,6) ,K=1 ,L1) 

SMT 

1094 

12 

WRITEC 6, 158)  LABELC4),  CSTATCK, 4) ,K=1 ,L2) 

SMT 

1095 

13 

WRITEC6,158)  LABELC5),  CSTATCK, 5) ,K=1 ,L3) 

SMT 

1096 

IFCDl.LT.  2)  GO  TO  444 

SMT 

1097 

WRITEC6,151)  CBACI),I=1,D1A) 

SMT 

1098 

14 

IFCM.  LT.  2) GO  TO  <+44 

SMT 

1099 

WRITEC6,152)  CBVCI),I=1,D1A) 

SMT 

1100 

WRITEC6,153)  CBSCI),I=1,D1A) 

SMT 

1101 

444 

IFCDT. LE. 1)  GO  TO  999 

SMT 

1102 

WRITEC6,159)  CVCI),I=1,DT) 

SMT 

1103 

999 

WRITEC 6, 162) 

SMT 

1104 

WRITEC6,108)  TTL 

SMT 

1105 

WRITEC6,201)  YMIN,YMAX 

SMT 

1106  C 

— 

PREPARE  2ND  PAGE  PLOT 

SMT 

1107  C 

— 

CLEAR  PLOT  ARRAY 

SMT 

1108 

CALL  CLRPACPLOT) 

SMT 

1109  C 

--- 

ENTER  QUANTILES 

SMT 

1110 

DO  220  K=1,L 

SMT 

1111 

DO  240  IS=1,NSYM 

SMT 

1112 

IQ=CPVALCK,IS)-YMIN)*VSCALE  +  1 

SMT 

1113 

IFCIQ  .GE.  1  .AND.  IQ  .  LE.  50)  PLOTCLOCXCK) ,  IQ)=SYMCIS) 

SMT 
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1114  240  CONTINUE 

1115  220  CONTINUE 

1116  C  ---  PRINT  2ND  PAGE 

1117  WRITE(6,202) 

1118  WRITE(6,161)  N,M,D 

1119  WRITE(6.101) 

1120  DO  191  J=l,50 

1121  K=51-J 

1122  IF(MOD(K,S).NE.O)  GO  TO  185 

1123  YLABELs:(K-DLH(2))/VSCALE  +  YMIN 

1124  WRITE(6,103)  YLABEL,(PLOT(I,K) ,I=1,IWIDTH) 

1125  GO  TO  191 

1126  185  CONTINUE 

1127  WRITE(6,100)  (PLOT(I ,K) ,I=1,IWIDTH) 

1128  191  CONTINUE 

1129  WRITE(6,106)  (XAXIS(I,1) ,I=1,IWIDTH) 

1130  WRITE(6,104)  (XAXIS(I,2) ,I=1,IWIDTH) 

1131  C  ---  PRINT  QUANTILE  AMOUNTS 

1132  WRITE(6,156) 

1133  WRITE(6,147)  (NE(I) ,I=1,L) 

1134  DO  199  I=1,NSYM 

1135  WRITE(6,167)  QVAL(I),  (PVAL(K, I) ,K=1 ,L) 

1136  199  CONTINUE 

1137  WRITE(6,158)  LABEL(7),  (STAT(K,7) .K=1,L1) 

1138  WRITE(6,108)  TTL 

1139  C  ---  WHEN  NPRT=1  SUPPRESS  NORMALIZED  PLOTS 

1140  IF(NPRT  .EQ.  1)  GO  TO  2000 

1141  C  --- 

1142  C  ---  PREPARE  3ND  PAGE  PLOT 

1143  C  ---  CLEAR  PLOT  ARRAY 

1144  CALL  CLRPA(PLOT) 

1145  C  ---  NORMALIZE  QUANTILES 

1146  DO  1220  K=1,L 

1147  DO  1240  IS=1,NSYM 

11^8  IF(STAT(K,2).GT.  0)  PVAL(K, IS)=(PVAL(K, IS) -STAT(K, 1) )/STAT(K, 2) 

1149  IQ=(PVAL(K,IS)+3. )*QVSC  +  1 

1150  IF(IQ  .GE.  1  .AND.  IQ  .  LE.  50)  FLOT(LOCX(K) ,  IQ)=SYM(IS) 

1151  1240  CONTINUE 

1152  1220  CONTINUE 

1153  C  ---  ADD  RIGHT  SIDE  NORMAL  POINT  MARKS 

1154  DO  1260  IS=1,NSYM 

1155  IQ=(VN0RM(IS)+3.  )*QVSC  +  1 

1156  IF(IQ  .GE.  1  .AND.  IQ  .  LE.  50)  PL0T(122,  IQ)=SYM(IS) 

1157  1260  CONTINUE 

1158  C  ---  PRINT  3RD  PAGE 

1159  WRITE(6,203) 

1160  WRITE(6,161)  N,M,D 

1161  WRITE(6,101) 

1162  DO  1191  J=l,50 

1163  K=51-J 

1164  IF(M0D(K,5).  NE.  0)  GO  TO  1185 

1165  YLABEL=(K-DLH(2))/QVSC  -  3. 

1166  WRITE(6,103)  YLABEL,(PLOT(I,K) ,I=1,IWIDTH) 

1167  GO  TO  1191 

1168  1185  CONTINUE 

1169  WRITE(6,100)  ( PLOT( I ,K) , 1=1 , IWIDTH) 
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1170  1191  CONTINUE 

1171  WRITE(6,106)  (XAXIS(I,1),I=1,IWIDTH) 

1172  WRITE(6,104)  (XAXIS(I.2) .I=1.IWIDTH) 

1173  C  — -  PRINT  NORMALIZED  QUANTILE  AMOUNTS 

1174  WRITE(6,156) 

1175  WRITE(6,147)  CNE(I) ,I=1,L) 

1176  DO  1199  I=1,NSYM 

1177  WRITE(6,167)  QVAL(I),  (PVAL(K.I) ,K=1,L) 

1178  1199  CONTINUE 

1179  WRITE(6.108)  TTL  . 

1180  C  A  A  A  A  A  A'  it  A  A'  ^  h  A  A  'k  ink'k'it'kit^hAkA  k^'kir 


1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199  378 

1200  375 

1201  C  -- 

1202  C  -- 

1203  C  -- 

1204 

1205  C  -- 

1206 

1207 

1208 

1209 

1210  2240 

1211  2220 

1212  C  -- 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 


2000  CONTINUE 

IF(NSR  .EQ.  1)  RETURN 
DO  360  1=1, L 
DO  370  J=l,7 

XSTAT(I,J,1)=GSTAT(I,J,1)/NSR 

XSTATC I , J . 2 )=( GSTATC I , J . 2 ) -NSR*XSTAT( I , J . 1) **2 ) / 

*  (CNSR-1)*NSR) 

IF(XSTAT(I,J,2)  .LT.  0)  XSTAT( I , J,2)=0 
XSTATC I , J , 2 )=SQRT( XSTAT( I , J , 2 ) ) 

370  CONTINUE 
360  CONTINUE 

DO  375  K=1,L 
DO  378  IS=1,NSYM 
XPVAL(K,IS,1)=GPVAL(K,IS.1)/NSR 

XPVAL(k!iS,2)=(GPVAL(K.IS.2)-NSR*XPVAL(K,IS,1)**2)/ 

*  ((NSR-1)*NSR)  ^  _ 

IF(XPVAL(K,IS,2)  .GT.  0.)  XPVAL(K,IS,2)=SQRT(XPVAL(K,IS,2)) 
IF(XPVAL(K,IS,2)  .LT.  0.)  XPVAL(K, IS,2)=0. 

CONTINUE 

CONTINUE  _  _ 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

PREPARE  SUPER  REPLICATIONS  QUANTILE  PLOT 

CLEAR  PLOT  ARRAY 
CALL  CLRPA(PLOT) 

ENTER  QUANTILES 
DO  2220  K=1,L 
DO  2240  IS=1,NSYM 
IQ=(XPVAL(K,IS,1)-YMIN)*VSCALE  +1 

IF(IQ  .  GE.  1  .AND.  IQ  .  LE.  50)  PLOT(LOCX(K) ,  IQ)=SYM(IS) 
CONTINUE 
CONTINUE 

PRINT  SUMMARY  QUANTILE  PLOT 
WRITE(6,173) 

WRITE(6,161)  N.M.D 
WRITE(6,101) 

DO  2191  J=l,50 
K=51-J 

IF(M0D(K,5).NE. 0)  GO  TO  2185 
YLABEL=(K-DLH(2))/VSCALE  +  YMIN 
WRITEC  6,103)  YLABEL, ( PLOT( I ,K) , 1=1 , IWIDTH) 

GO  TO  2191 
CONTINUE 

WRITEC  6,100)  C  PLOTC I ,K) , 1=1 , IWIDTH) 

CONTINUE 

WRITEC6,106)  CXAXISC I. 1), 1=1. IWIDTH) 


2185 

2191 


SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SlfT 

SMT 

SMT 

SMT 

SlfT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 
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1226 

WRITE(6,104)  (XAXIS(I,2),I=1,IWIDTH) 

SMT 

1227 

C 

---  PRINT  QUANTILE  AMOUNTS 

SMT 

1228 

WRITE(6,156) 

SMT 

1229 

WRITE(6,147)  (NE(I),I=1,L) 

SMT 

1230 

DO  2199  I=1,NSYM 

SMT 

1231 

WRITE(6,167)  QVAL(I),  (XPVAL(K.I . 1) .K=l .L) 

SMT 

1232 

2199  CONTINUE 

SMT 

1233 

WRITE(6,158)  LABEL(7),  (XSTAT(K, 7 , 1) ,K=1,L1) 

SMT 

1234 

WRITE(6,108)  TTL 

SMT 

1235 

C 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

SMT 

1236 

C 

— -  PRINT  SUMMARY  STATISTICS  PAGE 

SMT 

1237 

WRITE(6,171)  NSR 

SMT 

1238 

WRITE(6,172)  (NE(I),I=1,L) 

SMT 

1239 

WRITE(6,262) 

SMT 

1240 

WRITE(6,157)  LABEL(l),  (XSTAT(K, 1 , 1) ,  K=1,L) 

SMT 

1241 

WRITE(6,157)  BLK.  (XSTAT(K, 1.2) ,  K=1,L) 

SMT 

1242 

WRITE(6,262) 

SMT 

1243 

WRITE(6,157)  LABEL(2),  (XSTAT(K,2, 1) ,  Ksl.Ll) 

SMT 

1244 

WRITE(6,157)  BLK,  (XSTAT(K,2.2) ,  K=1,L1) 

SMT 

1245 

IF(MSE  .NE.  1)  GO  TO  443 

SMT 

1246 

Vn?TTE(6,262) 

SMT 

1247 

WRITE(6,157)  LABEL(6),  (XSTAT(K,6. 1) ,  K=1,L1) 

SMT 

1248 

WRITE(6,157)  BLK,  (XSTAT(K,6.2) .  K=1,L1) 

SMT 

1249 

443  CONTINUE 

SMT 

1250 

WRITE(6,262) 

SMT 

1251 

VRITE(6,157)  LABEL(4),  (XSTAT(K,4. 1) ,  K=1,L2) 

SMT 

1252 

WRITE(6,157)  BLK,  (XSTAT(K,4,2) ,  K=1,L2) 

SMT 

1253 

WRITE(6,262) 

SMT 

1254 

WRITE(6,157)  LABEL(5),  (XSTAT(K,5, 1) ,  K=1,L3) 

SMT 

1255 

WRITE(6,157)  BLK,  (XSTAT(K,5,2) ,  K=1,L3) 

SMT 

1256 

WRITE(6,262) 

SMT 

1257 

WRITE(6,157)  LABEL(7),  (XSTAT(K, 7 , 1) ,  K=1,L1) 

SMT 

1258 

WRITE(6,157)  BLK,  (XSTAT(K,7,2) ,  K=1,L1) 

SMT 

1259 

C 

---  PRINT  QUANTILE  STATISTICS 

SMT 

1260 

WRITE(6,169) 

SMT 

1261 

DO  445  I=1,NSYM 

SMT 

1262 

WRITE(6,262) 

SMT 

1263 

WRITE(6,167)  QVAL(I),  (XPVAL(K, I , 1) ,K=1 ,L) 

SMT 

1264 

WRITE(6,168)  BLK,  (XPVAL(K,I,2) ,K=1,L) 

SMT 

1265 

445  CONTINUE 

SMT 

1266 

C 

SMT 

1267 

DO  350  1=1,6 

SMT 

1268 

XBA(I,1)=GBA(I,1)/NSR 

SMT 

1269 

XBA( I , 2 )=SQRT( ( GBA( 1,2) -NSR*XBA( I , 1 )**2 ) / 

SMT 

1270 

*  ((NSR-1)*NSR)) 

SMT 

1271 

XBV(I,1)=GBV(I,1)/NSR 

SMT 

1272 

C***  XBV(  1 , 2)=SQRT(  ( G,BV(  1 , 2)  -NSR*XBV(  1 , 1)**2)  / 

SMT 

1273 

C***  *  ((NSR-1)*NSR)) 

SMT 

1274 

XBS(I,1)=GBS(I,1)/NSR 

SMT 

1275 

XBS( I , 2)=SQRT( (GBS( I ,2) -NSR*XBS( I , 1)**2)/ 

SMT 

1276 

*  ((NSR-1)*NSR)) 

SMT 

1277 

XW(I,1)=GW(I,1)/NSR 

SMT 

1278 

XW(  1 , 2  )=SQRT(  ( GVV(  1,2)  -NSR*XW(  1 , 1  )**2  )  / 

SMT 

1279 

*  ((NSR-1)*NSR)) 

SMT 

1280 

350  CONTINUE 

SMT 

1281 

C 

SMT 

1282 

IF(D1  .LT.  2)  GO  TO  410 

SMT 

1283 

WRITE (6, 262) 

SMT 

1284 

WRITE(6,151)  (XBA(I,1).I=1.D1A) 

SMT 

1285 

WRITE(6,176)  (XBA(I,2),I=1,D1A) 

SMT 

1286 

IF(M  .LT.  2)  GO  TO  410 

SMT 

1287 

WRITE(6,262) 

SMT 

1288 

WRITE(6,153)  (XBS(I,1),I=1,D1) 

SMT 

1289 

WRITE(6,176)  (XBS(I,2),I=1,D1) 

SMT 

1290 

410  CONTINUE 

SMT 

1291 

IF(DT  .LT.  2)  GO  TO  420 

SMT 

1292 

WRITE(6,262) 

SMT 

1293 

WRITE(6,159)  (XVV(I,1),I=1,DT) 

SMT 

1294 

WRITE(6,176)  (XW(I,2),I=1,DT) 

SMT 

1295 

420  CONTINUE 

SMT 

1296 

C 

SMT 

1297 

WRITE(6,262) 

SMT 

1298 

WRITE(6,108)  TTL 

SMT 

1299 

C 

---  PERCENTILE  PLOT 

SMT 

1300 

IF(IPR  .EQ.  1)  CALL  PRPLOT(M,N,NSR,L,NE,D,VMX,VXCNT, PLOT, TTL, 

SMT 

1301 

*  XAXIS.LOCX) 

SMT 

1302 

C 

SMT 

1303 

100  FORMAT(9X,' r ,122A1,’ 1 ') 

SMT 

1304 

101  FORMAT(9X  ’+' ,122( 

102  formatCi*) 

103  FORMATC  ',G8.2,'-',122Al,'r) 

SMT 

1305 

SMT 

1306 

SMT 

1307 

104  FORMATC 10X,122A1) 

106  FORMAT(9X,'+' ,122A1,’+') 

SMT 

1308 

SMT 

1309 

107  FORMATC 10G13.  8) 

SMT 

1310 

108  FORMATC/.'  ESTIMATOR;  ’ ,A120) 

SMT 

1311 

151  FORMATC/,'  MEAN  OF  REGRESSION  ON  AVERAGES’ ,6G17.  4) 

SMT 

1312 

176  FORMATC  '  ',6G17.4) 

1313 

152  FORMATC'  VARIANCE  OF  REGRESSION' ,8X,6G17.  4) 

153  FORMATC'  STD  DEV  OF  REGRESSION' ,9X,6G17. 4) 

SH^- 

1314 

SMT 

1315 

156  FORMATC/'  SUBSAMPLE') 

146  FORMATC  '  SIZE  ' ,8C I8,6X) ,/) 

147  FORMATC  '  SIZE  ' ,8CI8,6X) ,/'  QUANTILE’,/) 

SMT 

1316 

SMT 

1317 

SMT 

1318 

167  F0RMATC1X,F5.  3,6X,8G14.4) 

SMT 

1319 

168  FORMATC IX. A8,3X,  8G14.4) 

169  FORMATC/,^  QUANTILES') 

SMT 

1320 

SMT 

1321 

157  FORMATC IX, A8,3X,8G14.  4) 

SMT 

1322 

158  F0RMATC1X,A8,8F14.  4) 

SMT 

1323 

159  FORMATC/,'  REGRESSION  ON  VARIANCE' , 7X,6G17.  4) 

SMT 

1324 

161  FORMATC 9X,' SAMPLE  SIZE  CN):  ' ,15 ,20X, 'NO.  OF  REPLICATIONS  CM):', 
+15, 18X, 'DEGREE  OF  REGRESSION  CD): ',13) 

SMT 

1325 

SMT 

1326 

162  FORMATC/) 

171  FORMATC ' 1' .30X,' SUMMARY  STATISTICS  CMEAN/STD)', 

*  18,  SUPER-REPLICATIONS') 

172  FORMATC/,*  SUBSAMPLE',/,’  SIZE  ' ,8C I8,6X) ,/) 

173  FORMATC ' 1' ,30X,’ SUMMARY  QUANTILE  PLOT  FOR  ALL  SUPER-REPLICATIONS' 
262  FORMATC'  ') 

SMT 

1327 

SMT 

1328 

SMT 

1329 

SMT 

1330 

)SMT 

1331 

SMT 

1332 

201  FORMATC IX  'VERTICAL  SCALE:  YMIN  =' ,F10.  4,/ , 18X, ' YMAX  =',F10.4/) 

202  FORMATC ' 1* ,40X, 'QUANTILE  PLOT') 

203  FORMATC ' 1' ,40X,' NORMALIZED  QUANTILE  PLOT') 

END 

SMT 

1333 

SMT 

1334 

1335 

SMT 
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1336  SUBROUTINE  SETCOLR(I) 

1337  WRITE(6,1)I 

1338  1  FORMATC'+Tr'.Il) 

1339  RETURN 

1340  END 

1341  SUBROUTINE  CLRCOLR(COLRPLT)  SMT 

1342  CHARACTER  C0LRPLT( 122,50,5)*!  SMT 

1343  DO  1  1=1,122 

1344  DO  1  J=l,50 

1345  DO  1  K=l,5 

1346  1  COLRPLT(I,J,K)  =  '  ’ 

1347  RETURN 

1348  END 


1349  C---  SMT 

1350  SUBROUTINE  CMPSUM(BA,BV,BS,V,DT,D1,L,STAT,PVAL.NSYM,  SMT 

1351  *  GBA,GBV,GBS,GW,GSTAT,GPVAL)  SMT 

1352  C  ---  ACCUMULATE  SUMMARY  STATISTICS;  GBA,GBV,GBS,GW,GSTAT,GPVAL  SMT 

1353  REAL*4  STAT( 8 , 7) ,PVAL(8 , 11)  SMT 

1354  REAL*4  V( 7) ,BA( 7) ,BV( 7) ,BS(7)  SMT 

1355  REAL*8  GSTAT(8 , 7 ,2) ,  GPVAL(8,11,2)  SMT 

1356  REAL*8  GBA(7,2),  GBV(7,2),  GBS(7,2),  GW(7,2)  SMT 

1357  INTEGER  L,DT,D1,NSYM  SMT 

1358  IFCD1.lt.  2  .OR.  DT.  LT.  2)  GOTO  113  SMT 

1359  DO  300  1=1,6  SMT 

1360  GBA(I,1)=GBA(I,1)  +  BA(I)  SMT 

1361  GBA(I,2)=GBA(I,2)  +  BA(I)**2  SMT 

1362  GBV(I,1)=GBV(I,1)  +  BV(I)  SMT 

1363  GBV(I,2)=GBV(I,2)  +  BV(I)**2  SMT 

1364  GBS(I,1)=GBS(I,1)  +  BS(I)  SMT 

1365  GBS(I,2)=GBS(I,2)  +  BS(I)**2  SMT 

1366  IF(I  .LE.  DT)  THEN  SMT 

1367  GVV(I,1)=GW(I,1)  +  V(I)  SMT 

1368  GW(I,2)=GVV(I,2)  +  V(I)**2  SMT 

1369  ENDIF  SMT 

1370  300  CONTINUE  SMT 

1371  113  CONTINUE  SMT 

1372  DO  310  1=1, L  SMT 

1373  DO  320  J=l,7  SMT 

1374  GSTAT(I,J,1)=GSTAT(I,J,1)  +  STAT(I,J)  SMT 

1375  GSTAT(I,J,2)=GSTAT(I,J,2)  +  STAT(I,J)**2  SMT 

1376  320  CONTINUE  SMT 

1377  310  CONTINUE  SMT 

1378  C  ---  COMPUTE  SUMMARY  FOR  QUANTILES  SMT 

1379  DO  1221  K=1,L  SMT 

1380  DO  1241  IS=1,NSYM  SMT 

1381  GPVAL(K,IS,1)=GPVAL(K,IS,1)  +  PVAL(K,IS)  SMT 

1382  GPVAL(K,IS,2)=GPVAL(K,IS,2)  +  PVAL(K,IS)**2  SMT 

1383  1241  CONTINUE  S>n' 

1384  1221  CONTINUE  SMT 

1385  END  SMT 

1386  C  ---  SMT 

1387  SUBROUTINE  COEFF( B ,M ,D1A,  BA,BV,BS,V)  SMT 

1388  C  ---  COMPUTE  REGRESSION  COEFFICIENTS,  VARS,  ETC:  BA,BV,BS,V  SMT 


1389  REAL*4  V( 7) ,BA( 7) ,BV( 7) ,BS(7) ,  B(7,100)  SMT 

1390  INTEGER  DIA  SMT 

1391  AM=M  SMT 

1392  DO  93  1=1,7  SMT 

1393  BA(I)=0  SMT 

1394  BV(I)=0  SMT 

1395  BS(I)=0  SMT 

1396  V(I)=0  SMT 

1397  93  CONTINUE  SMT 

1398  DO  94  1=1, DIA  SMT 

1399  DO  95  J=1,M  SMT 

1400  BA(I)=BA(I)+B(I,J)  SMT 

1401  BV(I)=BV(I)+B(I,J)**2  SMT 

1402  95  CONTINUE  SMT 

1403  BA(I)=BA(I)/AM  SMT 

1404  IF(M.EQ. 1)G0  TO  94  SMT 

1405  BV(I)=(BV(I)-AM*BA(I)**2)/(AM*(AM-1. ))  SMT 

1406  IF(BV(I)  .LT.  0.)  BV(I)=0  SMT 

1407  BS(I)=BV(I)**.  5  SMT 

1408  94  CONTINUE  SMT 

1409  END  SMT 

1410  C  ---  SMT 

1411  SUBROUTINE  CMPMOM(Y,KP,VMSE,MSE ,K,  STAT,SVAR)  SMT 

1412  C  ---  COMPUTE  MOMENT  ESTIMATES  IN  STAT(K,*)  AND  SVAR(K)  SMT 

1413  REAL  Y(l),  VMSE(8),  STAT(8,7),  SVAR(8)  SMT 

1414  REAL*8  XMEAN , DEV , SUM2 , SUM3 , SUM4  SMT 

1415  XMEAN=0.  SMT 

1416  DO  180  IM1=1,KP  SMT 

1417  XMEAN=XMEAN+Y(IM1)  SMT 

1418  180  CONTINUE  SMT 

1419  XMEAN=XMEAN/FLOAT(KP)  SMT 

1420  SUM2  =  O.ODO  SMT 

1421  SUM3=  O.ODO  SMT 

1422  SUM4  =  O.ODO  SMT 

1423  DO  190  IP1=1,KP  SMT 

1424  DEV  =  Y(IPl)  -  XMEAN  SMT 

1425  SUM2  =  SUM2  +  DEV  *  DEV  SMT 

1426  SUM3  =  SUM3  +  DEV  **  3  SMT 

1427  SUM4  =  SUM4  +  DEV  **  4  SMT 

1428  190  CONTINUE  SMT 

1429  C  SMT 

1430  C  CHECK  TO  INSURE  SAMPLE  SIZE  IS  LARGE  ENOUGH  FOR  EACH  MOMENT  SMT 

1431  C  CLEAR  STAT  SMT 

1432  DO  419  IP1=1,7  SMT 

1433  STAT(K,IP1)=0.  SMT 

1434  419  CONTINUE  SMT 

1435  IF  (KP. LT.  2)  GO  TO  9  SMT 

1436  VAR  =  SUM2  /  (KP  -  1.0)  SMT 

1437  STDV  =  SQRT(VAR)  SMT 

1438  C  ---  SERIAL  CORRELATION  SMT 

1439  SERC0R=0.  SMT 

1440  DO  421  IP1=2,KP  SMT 

1441  SERCOR=SERCOR  +  (Y( IPl-1) -XMEAN)*(Y( IPl) -XMEAN)  SMT 

1442  421  CONTINUE  SMT 

1443  SERC0R=SERC0R/((KP-1)*VAR)  SMT 


1444 

7 

IF  (KP. LT. 3)  GO  TO  9 

SMT 

1445 

SUM3  =  SUM3  *  KP  /(  (KP-1.  )  *  (KP-2.  )) 

SMT 

1446 

SKEW  =  SUM3  /  STDV  **  3 

SMT 

1447 

8 

IF  (KP.LT.  4)  GO  TO  9 

SMT 

1448 

SUM4  =  SUM4*((KP-2.  )*KP+3. )/((KP-l. )*(KP-2. )*(KP-3. )) 

SMT 

1449 

SUM4  =  SUM4  -  VAR*VAR*3.*(KP-1.  )*(KP+KP-3. )/(KP*(KP-2.  )*(KP-3)) 

SMT 

1450 

CKURT  =  SUM4  /  (VAR  *  VAR)  -  3. 

SMT 

1451 

9 

STAT(K,1)=XMEAN 

SMT 

1452 

STAT(K.2)=STDV 

SMT 

1453 

STAT(K, 3)=STDV/SQRT(FLOAT(KP) ) 

SMT 

1454 

STAT(K,4)=SKEW 

SMT 

1455 

STAT(K,5)=CKURT 

SMT 

1456 

C 

— 

MEAN  SQUARE  ERROR  05-25-86 

SMT 

1457 

IF(MSE  .EQ.  1)  THEN 

SMT 

1458 

STAT(K,6)=SQRT(VAR  +  (XMEAN-VMSE(K) )**2) 

SMT 

1459 

ELSE 

SMT 

1460 

STAT(K,6)=0. 

SMT 

1461 

ENDIF 

SMT 

1462 

SVAR(K)=VAR 

SMT 

1463 

STAT(K,7)=SERC0R 

SMT 

1464 

END 

SMT 

1465 

C- 

SMT 

1466 

SUBROUTINE  PRPLOT( M , N , NSR , L , NE , D , VMX , VXCNT , PLOT , TTL , XAXI S , LOCK ) 

SMT 

1467 

c 

--- 

PRINT  PERCENTILE  PLOTS  09-09-86 

SMT 

1468 

REAL*4  VMX(8,4),VXCNT(8,4),  VXSTD(8,4) 

SMT 

1469 

REAL*4  ULH(4),DLH(4) 

SMT 

1470 

INTEGER  NEC 8),  LOCX(8) 

SMT 

1471 

CHARACTER* 120  TTL 

SMT 

1472 

CHARACTER*!  SYM(4),  PLOT( 122,50) ,  XAXIS( 122,2) 

DATA  DLH/1.  ,1.  ,122.  ,50./,  SYM/'*^ / 

SMT 

1473 

SMT 

1474 

c 

CLEAR  PLOT  ARRAY 

SMT 

1475 

CALL  CLRPA(PLOT) 

SMT 

1476 

c 

SET  HORIZONTAL  XMIN,  XMAX 

SMT 

1477 

ULH(1)=.  7*NE(1) 

SMT 

1478 

ULH(3)=1.  2*NE(L) 

SMT 

1479 

ULH(2)=0. 

SMT 

1480 

ULH(4)=1. 

SMT 

1481 

XMIN=ULH(1) 

SMT 

1482 

XMAX=ULH( 3) 

SMT 

1483 

YMIN=ULH(2) 

SMT 

1484 

YMAX=ULH(4) 

SMT 

1485 

IWIDTH=DLH(3) 

SMT 

1486 

c 

--- 

SCALING  FACTORS 

SMT 

1487 

VSCALE=( DLH( 4 ) -DLH( 2 ) ) / ( ULH( 4) -ULH( 2 ) ) 

SMT 

1488 

c 

SMT 

1489 

c 

— 

CONVERT  FREQUENCY  COUNTS  TO  PROBS.  FOR  PLOT  &  VARS  FOR  PRINTING 

SMT 

1490 

DO  10  1=1,8 

SMT 

1491 

NBK=N/NE(I) 

SMT 

1492 

AN=NSR*M*NBK 

SMT 

1493 

DO  20  J=l,4 

SMT 

1494 

P=VXCNT(I,J)/AN 

SMT 

1495 

VXCNT(I,J)=P 

SMT 

1496 

IQ=(P  -  ULH(2))*VSCALE  +  1 

SMT 

1497 

IQ=MIN(IQ,  50) 

SMT 

1498 

IK=LOCX(I)+J-2 

SMT 
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1499  DO  21  K=1,IQ  SMT 

1500  PLOTdK,  K)=SYM(J)  SMT 

1501  21  CONTINUE  SMT 

1502  VXSTD(I,J)=SQRT(P*(1-P)/AN)  SMT 

1503  20  CONTINUE  SMT 

1504  10  CONTINUE  SMT 

1505  C  ---  PRINT  PERCENTILE  PLOT  SMT 

1506  WRITE(6,173)  NSR  SMT 

1507  WRITE(6,161)  N,M,D  SMT 

1508  WRITE(6,101)  SMT 

1509  DO  2191  J=l,50  SMT 

1510  K=51-J  SMT 

1511  IF(M0D(K,5).NE. 0)  GO  TO  2185  SMT 

1512  YLABEL=(K-DLH(2))/VSCALE  +  ULH(2)  SMT 

1513  WRITE(6,103)  YLABEL,(PIX)T(I,K) ,I=1,IWIDTH)  SMT 

1514  GO  TO  2191  SMT 

1515  2185  CONTINUE  SMT 

1516  WRITE(6,100)  (PLOT(I,K) ,I=1,IWIDTH)  SMT 

1517  2191  CONTINUE  SMT 

1518  WRITE(6,106)  (XAXIS( I , 1) , 1=1 . IWIDTH)  SMT 

1519  WRITE(6,104)  (XAXIS(I ,2) .I=1.IWIDTH)  SMT 

1520  WRITE(6,156)  SMT 

1521  WRITE(6,146)  (NE( I) , 1=1 .L)  SMT 

1522  C  ---  PRINT  VARIANCES  SMT 

1523  DO  50  J=l,4  SMT 

1524  WRITE(6,150)  J,  (VMX(I,J).  1=1, D  SMT 

1525  WRITE(6,151)  (VXCNT(I,J).  1=1, L)  SMT 

1526  WRITE(6,152)  (VXSTD(I,J),  1=1, L)  SMT 

1527  50  CONTINUE  SMT 

1528  WRITE(6,108)  TTL  SMT 

1529  100  F0RMAT(9X,' I' ,122A1,’ I’)  SMT 

1530  101  F0RMAT(9X'+' ,122( SMT 

1531  102  FORMAT('l')  SMT 

1532  103  FORMATC  ' ,G8.  2 , ’ - ' , 122A1 , ' T )  SMT 

1533  104  FORMATC 10X.122A1)  SMT 

1534  106  FORMATC 9X,'+' ,122A1,'+')  SMT 

1535  108  FORMATC/,'  ESTIMATOR:  ' ,A120)  SMT 

1536  146  FORMATC  '  SIZE  ',8CI8,6X)  )  SMT 

1537  150  FORMATC/,'  X-VALUE-' ,12,  8G15. 4)  SMT 

1538  151  FORMATC  ’  PERCENTILE',  8G15.4)  SMT 

1539  152  FORMATC  '  ESTIM.  STD' ,  8G15. 4)  SMT 

1540  156  FORMATC/'  SUBSAMPLE')  SMT 

1541  161  FORMATC 9X, 'SAMPLE  SIZE  CN):  ’ ,I5,20X, 'NO.  OF  REPLICATIONS  CM):',  SMT 

1542  +15, 18X, 'DEGREE  OF  REGRESSION  CD): ' ,13)  SMT 

1543  173  FORMATC ' 1' ,30X, 'PERCENTILE  PLOTS  FOR  FOUR  X-VALUES' ,18,  SMT 

1544  *  '  SUPER-REPLICATIONS',/)  SMT 

1545  END  SMT 

1546  C  .  SMT 

1547  SUBROUTINE  CLRGTCGBA,GBV,GBS,GW,GSTAT,GPVAL)  SMT 

1548  C  ---  CLEAR  GRANDTOTALS  SMT 

1549  REAL+8  GPVALC 8 , 11 ,2)  SMT 

1550  REAL+8  GBAC7,2),  GBVC7,2),  GBSC7,2),  GWC7,2),  GSTATC8,7,2)  SMT 

1551  DO  41  1=1,7  SMT 

1552  DO  42  J=l,2  SMT 

1553  GBACI,J)=0  SMT 
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1554 

GBV(I,J)=0 

SMT 

1555 

GBS(I,J)=0 

SMT 

1556 

GW(I,J)=0 

SMT 

1557 

42 

CONTINUE 

SMT 

1558 

41 

CONTINUE 

SMT 

1559 

DO  43  1=1,8 

SMT 

1560 

DO  44  J=l,7 

SMT 

1561 

GSTAT(I,J,1)=0 

SMT 

1562 

GSTAT(I,J,2)=0 

SMT 

1563 

44 

CONTINUE 

SMT 

1564 

DO  46  J=l,ll 

SMT 

1565 

GPVAL(I,J,1)=0 

SMT 

1566 

GPVAL(I,J,2)=0 

SMT 

1567 

46 

CONTINUE 

SMT 

1568 

43 

CONTINUE 

SMT 

1569 

END 

SMT 

1570  C 

SMT 

1571 

SUBROUTINE  CLRPA(PLOT) 

SMT 

1572 

CHARACTER*!  PL0T( 122,50) ,BLK 

SMT 

1573 

DATA  BLK/'  '/ 

SMT 

1574 

DO  3  J=l,50 

SMT 

1575 

DO  4  1=1,122 

SMT 

1576 

PLOT(I,J)=BLK 

SMT 

1577 

4 

CONTINUE 

SMT 

1578 

3 

CONTINUE 

SMT 

1579 

END 

SMT 

1580  C’ 

rrfTCTfi 

»t**SMT 

1581  C 

SMT 

1582 

SUBROUTINE  BOXPRT(Y,NY,IX,PLOT,RG,XMIN,YMIN,XMAX,YMAX,VSCALE) 

SMT 

1583  C 

PREPARES  BOXPLOT  FROM  VECTOR  Y  (IN  2-D  ARRAY  PLOT) 

SMT 

1584 

CHARACTER* 1  PLOT( 1 2  2 , 5  0 ) , DASH , CB AR , CROS  S , CSTR , CO 

S.MT 

1585 

REAL  Y(NY) 

SMT 

1586 

INTEGER  RG 

SMT 

1587 

LOGICAL  LFLAG 

SMT 

1588 

DATA  DASH/ ' - ’ / ,CBAR/ ' I ’ / ,CSTR/ ’ *' /, CROSS/ ’ +’ / .CO/ ’ 0 ’ / 

SMT 

1589 

IF(NY  .GE.  9)  GO  TO  5 

SMT 

1590  C 

WHEN  LESS  THAN  9  POINTS  JUST  SHOW  THE  POINTS 

SMT 

1591 

DO  8  1=1, NY 

SMT 

1592 

J=(Y(I)-YMIN)*VSCALE  +  1. 

SMT 

1593  C 

IGNORE  VALUE  IF  IT  FALLS  OUTSIDE  WINDOW 

SMT 

1594 

IF(J.  GT.  50  .OR.  J.  LT.  1)  GO  TO  8 

SMT 

1595 

PLOT(IX,J)=CO 

SMT 

1596 

8 

CONTINUE 

SMT 

1597 

SUM=0. 

SMT 

1598 

DO  88  1=1, NY 

SMT 

1599 

SUM=SUM+Y(I) 

SMT 

1600 

88 

CONTINUE 

SMT 

1601 

SUM=SUM/FLOAT(NY) 

SMT 

1602 

MEAN=( SUM-YMIN)*VSCALE+1 

SMT 

1603 

IF(MEAN. LE. 50  .AND.  MEAN. GE. 1)  PLOT( IX,MEAN)=CSTR 

SMT 

1604 

GO  TO  99 

SMT 

1605 

5 

CONTINUE 

SMT 

1606 

LFLAG=.  FALSE. 

SMT 

1607 

P25  =PCTL(Y,NY,.  25,0) 

SMT 
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1608  P75  =PCTL(Y,NY,.  75,1)  SMT 

1609  P50  =PCTL(y,NY,.50,l)  SMT 

1610  IQ1=(P25-YMIN)*VSCALE+1.  SMT 

1611  IQ2=(P50-YMIN)*VSCALE+1.  SMT 

1612  IQ3=(P75-YMIN)*VSCALE+1.  SMT 

1613  XLOW=2*P25-P75  SMT 

1614  ILOW=(XLOW-YMIN)*VSCALE+l.  SMT 

1615  XHI=2*P75-P25  SMT 

1616  IHI=(XHI-YMIN)*VSCALE+1.  SMT 

1617  CLOW=2. 5*P25-1. 5*P75  SMT 

1618  CHI=2. 5*P75-1. 5*P25  SMT 

1619  C  DRAW  BOX  SMT 

1620  DO  20  J=IQ1.IQ3  SMT 

1621  IFCJ.GT.  50  .OR.  J.  LT.  1)  GO  TO  20  SMT 

1622  PLOT(IX-l,J)=CBAR  SMT 

1623  PLOT(IX+l,J)=CBAR  SMT 

1624  20  CONTINUE  SMT 

1625  IFdQl.GT.  50  .OR.  IQl.  LT.  1)  GO  TO  21  SMT 

1626  PL0T(IX-1,IQ1)=DASH  SMT 

1627  PL0T(IX+1,IQ1)=DASH  SMT 

1628  21  CONTINUE  SMT 

1629  IF(IQ3.GT. 50  .OR.  IQ3. LT.  1)  GO  TO  22  SMT 

1630  PLOT(IX-l,IQ3)=DASH  SMT 

1631  PLOT(IX+l,IQ3)=DASH  SMT 

1632  22  CONTINUE  SMT 

1633  C  DETERMINE  IF  OUTLIERS  ARE  TO  BE  COUNTED  AND  THE  NUMBER  PRINTED.  SMT 

1634  IF  (RG.EQ. 1)  GO  TO  55  SMT 

1635  DO  30  1=1, NY  SMT 

1636  J=(Y(I)-Y.MIN)*VSCALE+1.  SMT 

1637  C  IGNORE  VALUE  IF  IT  FALLS  OUTSIDE  WINDOW  SMT 

1638  IFCJ.GT.  50  .OR.  J.  LT.  1)  GO  TO  30  SMT 

1639  IF(Y(I).LT. CLOW)  PLOT( IX, J)=CSTR  SMT 

1640  IF(Y(I).LT.  CLOW)  GO  TO  30  SMT 

1641  IF(Y(I).GE.CLOW  .  AND. Y( I).  LT. XLOW)  PLOT( IX, J)=CO  SMT 

1642  IFCLFLAG  .OR.  Y( I).  LT.  XLOW)  GO  TO  25  SMT 

1643  C  THIS  IS  THE  LOW-CROSS  POINTER  (1ST  POINT  GE  XLOW)  SMT 

1644  LFLAG=.  TRUE.  SMT 

1645  ILX=J  SMT 

1646  C  NEXT  LINE  ENDS  UP  WITH  HI-CROSS  POINTER  (LAST  POINT  LE  XHI)  SMT 

1647  25  IF(Y(I).  LE.XHI)  IHX=J  SMT 

1648  IF(Y(I).  GT.XHI  .  AND.  Y( I).  LE.  CHI)  PLOT( IX, J)=CO  SMT 

1649  IF(Y(I).GT.CHI)  PLOT( IX, J)=CSTR  SMT 

1650  30  CONTINUE  SMT 

1651  GO  TO  56  SMT 

1652  C  SMT 

1653  C  SCALE  TO  INTERQUARTILE  +(-)  INTERQUARTILE  DISTANCE.  SMT 

1654  C  SMT 

1655  55  11=0  SMT 

1656  III=0  SMT 

1657  DO  31  1=1, NY  SMT 

1658  J=(Y(I)-YMIN)*VSCALE+1.  SMT 

1659  IF(Y(I).LT. CLOW)  II  =  II+l  SMT 

1660  IF(Y(I).GT. CHI)  III=III+1  SMT 

1661  IFCJ.GT. 50  .OR.  J. LT. 1)  GO  TO  31  SMT 

1662  IF(Y(I).GE.CLOW  .  AND.  Y( I ).  LT.  XLOW)  PLOT( IX, J)=CO  SMT 

1663  IFCLFLAG  .OR.  Y( I).  LT.  XLOW)  GO  TO  26  SMT 
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1664  C  THIS  IS  THE  LOW-CROSS  POINTER  (1ST  POINT  GE  XLOW)  SMT 

1665  LFLAG=.  TRUE.  SMT 

1666  ILX=J  SMT 

1667  C  NEXT  LINE  ENDS  UP  WITH  HI -CROSS  POINTER  (LAST  POINT  LE  XHI)  SMT 

1668  26  IF(Y(I).LE.XHI)  IHX=J  SMT 

1669  IF(Y(I).GT.XHI  .  AND.  Y(I).  LE.  CHI)  PLOT( IX, J)=CO  SMT 

1670  31  CONTINUE  SMT 

1671  C  SMT 

1672  C  PRINT  NUMBER  OF  OUTLIERS  UNLESS  0.  SMT 

1673  DO  36  K=l,2  SMT 

1674  IK=II  SMT 

1675  J=(CLOW-YMIN)*VSCALE  +1  SMT 

1676  IF(K.EQ. 2)IK=III  SMT 

1677  IF(K.EQ.  2)J=(CHI-YMIN)*VSCALE  +  1  SMT 

1678  IF(J. LT. 1)  J=1  SMT 

1679  IF(J.GT.  50)J=50  SMT 

1680  IF  (IK. EQ. 0)  GO  TO  36  SMT 

1681  CALL  NUMPRT(IX,J,IK,PLOT)  SMT 

1682  36  CONTINUE  SMT 

1683  C  SMT 

1684  C  FILL  BARS  ABOVE  AND  BELOW  THE  BOX  SMT 

1685  56  DO  32  J=ILX,IQ1  SMT 

1686  IF(J.GT.  50  .OR.  J.  LT.  1)  GOTO  32  SMT 

1687  PLOT(IX,J)=CBAR  SMT 

1688  32  CONTINUE  SMT 

1689  DO  33  J=IQ3,IHX  SMT 

1690  IF(J. GT. 50  .OR.  J. LT. 1)  GOTO  33  SMT 

1691  PLOT(IX,J)=CBAR  SMT 

1692  33  CONTINUE  SMT 

1693  IF(ILX.LE.50  .AND.  ILX. GE.  1)  PL0T( IX, ILX)=CROSS  SMT 

1694  IF(IHX.LE.50  .AND.  IHX. GE. 1)  PLOT( IX, IHX)=CROSS  SMT 

1695  IF(IQ1.LE.50  .AND.  IQl. GE. 1)  PL0T(IX,IQ1)=DASH  SMT 

1696  IF(IQ2.LE.50  .AND.  IQ2. GE. 1)  PLOT( IX, IQ2)=CROSS  SMT 

1697  IF(IQ3.LE.50  .AND.  IQ3. GE. 1)  PLOT( IX, IQ3)=DASH  SMT 

1698  SUM=0.  SMT 

1699  DO  40  1=1, NY  SMT 

1700  SUM=SUM+Y(I)  SMT 

1701  40  CONTINUE  SMT 

1702  SUM=SUM/FLOAT(NY)  SMT 

1703  MEAN=(SUM-YMIN)*VSCALE+1  SMT 

1704  IF(MEAN.  TJ:.  50  .AND.  MEAN.  GE.  1)  PLOT(  IX,MEAN)=CSTR  SMT 

1705  99  CONTINUE  SMT 

1706  RETURN  SMT 

1707  END  SMT 

1709  SUBROUTINE  RREG(XS,YS,BS,M,N,IX1,IX2)  SMT 

1710  C  ROBUST  REGRESSION  ON  Y=X*B  SMT 

1711  C  X=M  BY  N  MATRIX  CONTAINED  IN  AN  ARRAY  OF  DIM(IX1,IX2)  SMT 

1712  C  Y=M-VECTOR  CONTAINED  IN  AN  ARRAY  OF  DIM(IXl)  SMT 

1713  C  B=N-VECTOR  CONTAINED  IN  AN  ARRAY  OF  DIM(IX2)  SMT 

1714  C  XX,XXI=WORK  ARRAYS  OF  DIM(IX2,IX2)  SMT 

1715  C  WY=WORK  ARRAY  OF  DIM(IXl)  SMT 

1716  C  WX=WORK  MATRIX  OF  DIM(IX1,IX2)  SMT 

1717  C  XY=WORK  ARRAY  OF  DIM(IX2)  SMT 

1718  C  WK=WORK  ARRAY  OF  DIM(N**2  +  3*N)  OR  LARGER  SMT 
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1719  C  ** 

r***  +++++  +++++  MODIFICATION  USING  CHOLESKY 

+++++ 

SMT 

1720  C 

SMT 

1721 

REAL*4  YS(8),XS(8,7),BS(7) 

SMT 

1722 

REAL*8  YC8),X(8,7),B(7),XTX(7,7),XTY(7) 

SMT 

1723  C  *****  CONVERT  REAL*4  TO  REAL*8  **********iH 

c*ir***A'A*A*A- 

SMT 

1724 

DO  10  1=1, IXl 

SMT 

1725 

Y(I)=DBLE(YS(I)) 

SMT 

1726 

DO  5  J=1,IX2 

SMT 

1727 

X(I,J)=DBLE(XS(I,J)) 

SMT 

1728  5 

CONTINUE 

SMT 

1729  10 

CONTINUE 

SMT 

1730  C 

SMT 

1731 

CALL  MATSQ  (X,XTX,M,N) 

SMT 

1732 

CALL  MATMUL  (X.Y.XTY,M,N) 

SMT 

1733 

CALL  CHOLES  (XTX.XTY.B ,N) 

SMT 

1734  C 

SMT 

1735  c  *****  CONVERT  REAL*8  TO  REAL*4  ************************** * 

SMT 

1736  C 

DO  20  1=1, 1X1 

SMT 

1737  C 

YS(I)=SNGL(Y(I)) 

SMT 

1738 

DO  15  J=1,IX2 

SMT 

1739 

BS(J)=SNGL(B(J)) 

SMT 

1740  C 

XS(I,J)=SNGL(X(I,J)) 

SMT 

1741  15 

CONTINUE 

SMT 

1742  20 

CONTINUE 

SMT 

1743  C 

SMT 

1744 

RETURN 

SMT 

1745 

END 

SMT 

1746  C*** 

,A^A^^V^A«,VAAAA^«^^,V****V^*«**************^ 

lr***i( 

t******************* 

***SMT 

1747 

SUBROUTINE  NUMPRT( IX, J, IK.PLOT) 

SMT 

1748  C 

NUMPRT  PLOTS  THE  NUMBER  IK  IN  THE  2-D  ARRAY 

PLOT  CENTERED  ON 

SMT 

1749  C 

THE  PLOT(IX,J)  POSITION. 

SMT 

1750  C 

IX  =  COLUMN  OF  MATRIX  PLOT  WHERE  NUMBER 

IS  TO  BE  PRINTED. 

SMT 

1751  C 

J  =  ROW  OF  MATRIX  WHERE  HUMBER  IS  TO  BE 

PRINTED. 

SMT 

1752  C 

IK  =  NUMBER  TO  BE  PRINTED 

SMT 

1753  C 

PLOT  =  2-D  ARRAY  WHERE  NUMBER  IS  TO  BE  PLOTED. 

SMT 

1754  C 

SMT 

1755 

CHARACTER*!  NUM( 10) ,PLOT( 122, J) 

SMT 

1756 

DATA  NUM/'O' ,'l','2','3','4','5','6','7 

','8 

','97 

SMT 

1757 

IF  (IK. LT.  10)  GO  TO  1 

SMT 

1758 

IF  (IK. LT. 100)  GO  TO  2 

SMT 

1759 

IF  (IK. LT. 1000)  GO  TO  3 

SMT 

1760 

IF  (IK. LT. 10000)  GO  TO  4 

SMT 

1761 

IIOOOO  =  IK/10000 

SMT 

1762 

PL0T(IX-2,J)  =  NUM(I10000+1) 

SMT 

1763 

IlOOO  =  (IK-I10000*10000)/1000 

SMT 

1764 

PL0T(IX-1,J)  =  NUM(I1000+1) 

SMT 

1765 

1100  =  (IK-I10000*10000-I1000*1000)/100 

SMT 

1766 

PLOT(IX,J)  =  NUM(I100+1) 

SMT 

1767 

110  =  (IK-I10000*10000-I1000*1000-I100*100)/10 

SMT 

1768 

PL0T(IX+1,J)  =  NUM(I10+1) 

SMT 

1769 

11  =  (IK-I10000*10000-I1000*1000-I100*100-I10*10) 

SMT 

1770 

PL0T(IX+2,J)  =  NUM(I1+1) 

SMT 

1771 

GO  TO  22 

SMT 

1772 

4  iiUuO  =  IK/1000 

SMT 

1773 

PL0T(IX-2,J)  =  NUM( I 1000+1) 

SMT 

161 


1774  1100  =  (IK-I1000*1000)/100  SMT 

1775  PLOT(IX-l,J)  =  NUM(I100+1)  SMT 

1776  no  =  (IK-I1000*1000-I100*100)/10  SMT 

1777  PLOT(IX.J)  =  NUM(110+1)  SMT 

1778  II  =  (IK-I1000*1000-I100*100-I10*10)  SMT 

1779  PL0T(IX+1.J)  =  NUM(I1+1)  SMT 

1780  GO  TO  22  SMT 

1781  3  1100  =  IK/100  SMT 

1782  PL0T(IX-1,J)  =  NUM(I100+1)  SMT 

1783  no  =  (IK-n00*100)/10  SMT 

1784  PLOT(IX,J)  =  NUM( 110+1)  SMT 

1785  11  =  (IK-n00*100-n0*10)  SMT 

1786  PL0T(IX+1,J)  =  NUM(n+l)  SMT 

1787  GO  TO  22  SMT 

1788  2  no  =  IK/10  SMT 

1789  PL0T(IX-1,J)  =  NUM( 110+1)  SMT 

1790  11  =  (IK-n0*10)  SMT 

1791  PLOT(IX,J)  =  NUM(n+l)  SMT 

1792  GO  TO  22  SMT 

1793  1  PLOT(IX,J)  =  NUM(IK+1)  SMT 

1794  22  RETURN  SMT 

] 795  END  SMT 

1797  C  SMT 

1798  SUBROUTINE  SECEST(GENEST, IX,N,M,NEK,Y,KP)  SMT 

1799  REAL  Y(l)  SMT 

1800  real*8  IX  SMT 

1801  C  COMPUTE  ESTIMATES  "EST"  FOR  SECTION  LENGTH  NEK  (LIMITED  TO  1000)  SMT 

1802  NBK=N/NEK  SMT 

1803  KP=0  SMT 

1804  DO  10  1=1, M  SMT 

1805  DO  15  J=1,NBK  SMT 

1806  KP=KP+1  SMT 

1807  CALL  GENEST(IX,NEK,Y(KP))  SMT 

1808  15  CONTINUE  SMT 

1809  10  CONTINUE  SMT 

1810  RETURN  SMT 

1811  END  SMT 

1813  C  SMT 

1814  SUBROUTINE  MAXMIN(Y,N,YMAX,YMIN)  SMT 

1815  C  RETURNS  MAX  AND  MIN  VALUES  OF  VECTOR  Y  OF  LENGTH  N  SMT 

1816  REAL  Y(N)  SMT 

1817  YMAX=Y(1)  SMT 

1818  YMIN=Y(1)  SMT 

1819  DO  605  J=1,N  SMT 

1820  IF(Y(J).LT.  YMIN)  YMIN=Y(J)  SMT 

1821  IF(Y(J).GT.  YMAX)  YMAX=Y(J)  SMT 

1822  605  CONTINUE  SMT 

1823  RETURN  SMT 

1824  END  SMT 

1826  C  SMT 
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1827  FUNCTION  PCTL(Y.N,P,IC)  SMT 

1828  C  COMPUTES  P  PERCENTILE  OF  N  VALUES  IN  Y.  SMT 

1829  C  WHEN  IC=1  DATA  IS  ALREADY  SORTED  SMT 

1830  REAL  Y(N)  SMT  j 

1831  R=P*FL0AT(N+1)  SMT 

1832  IFCIC  .NE.  1)  CALL  SORT(Y,N)  SMT 

1833  I=MAXO(INT(R)  ,1)  SMT 

1834  I=MINO(I,N)  SMT 

1835  J=MIN0(INT(R+1. )  ,  N)  SMT 

1836  R=R-INT(R)  SMT 

1837  PCTL=Y(I)+R*(Y(J)-Y(I))  SMT  | 

1838  RETURN  SMT 

1839  END  SMT 

1841  ^  SUBROUTINE  DELETO(Y,KP,YMAX,YMIN)  SMT 

1842  C  SUBROUTINE  SCALES  THE  GRAPH  TO  UPPER  (LOWER)  QUARTILE  +  (-)  SMT  ; 

1843  C  1. 5  TIMES  INTERQUARTILE  DISTANCE  OR  TO  FIRST  POINT  WITHIN  SMT  ' 

1844  C  THESE  LIMITS  IF  NO  POINTS  EXIST  OUTSIDE.  SMT 

1845  REAL  Y(KP)  SMT 

1846  P25  =PCTL(Y,KP,.  25,0)  SMT 

1847  P75  =PCTL(Y,KP,.  75,1)  SMT 

1848  P50  =PCTL(Y,KP,.  50,1)  SMT 

1849  yMIN=2. 5*P25-1. 5*P75  SMT  | 

1850  YMAX=2.5*P75-1.5*P25  SMT 

1851  IF(Y(1).GT. YMIN)  YMIN=Y(1)  SMT 

1852  IF(Y(KP),LT.YMAX)  YMAX=Y(KP)  SMT 

1853  RETURN  SMT 

1854  END  SMT 


1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

I 


C  CHOLESKI ’ S  METHODS 

SUBROUTINE  CHOLES  (XTX,XTY,BHAT,N) 

REAL*8  L(7,7),SUM,LT(7,7),XTX(7,7),XTY(7),BHAT(7),WY(7) 
REAL*4  B(7) 

INTEGER  P 
C 

C  *****  INIT  L  ****************** 

DO  100  1=1, N 
BHAT(I)=0.  ODO 
DO  50  J=1,N 
L(I,J)=0.  ODO 
LT(I,J)=0.  ODO 
50  CONTINUE 
100  CONTINUE 

C  ****  ALGORITHM  DECOMPOSITION  ********* 

L( 1 , 1)=DSQRT( XTX( 1,1)) 

DO  500  K=2,N 
KK=K-1 

DO  200  J=1,KK 
JJ=J-1 
SUM=0. ODO 

IF  (J. EQ.  1)  GO  TO  150 
DO  140  P=1,JJ 
SUM=SUM+( L(K,P)*L(J,P)) 

140  CONTINUE 


SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 
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150  CONTINITE 

L(K,J)=(XTX(K,J)-SUM)/L(J,J) 
200  CONTINUE 
SUM=0.  ODO 
DO  300  P=1,KK 
SUM=SUM+(L(K,P)**2) 

300  CONTINUE 

L(K,K)=  DSQRT  (XTX(K,K)-SUM) 
500  CONTINUE 

:  BUILD  L-TRANSPOSE  IN  LT  *******i 
DO  540  1=1,  N 
DO  530  J=l,  N 
LT(I,J)=L(J,I) 

530  CONTINUE 
540  CONTINUE 


C  *****  ALGORITHM  PART  1  A.  2  ** 
C  ***  L  *  WY  =  XTY 

WY(1)=XTY(1)/L(1,1) 

DO  700  1=2, N 
11=1-1 
SUM=0.  ODO 
DO  600  J=1,II 

SUM=SUM+(WY(J)*L(I,J)) 

600  CONTINUE 

WY(I)=(XTY(I)-SUM)/L(I,I) 

700  CONTINUE 
C 

C  ***  lT  *  BHAT  =  WY  ******************* 
BHAT(N)=WY(N)/LT(N,N) 

DO  800  II=2,N 
I=N-II+1 
SUM=0,  000 
DO  750  J=I,N 

SUM=SUM+(BHAT( J)*LT( I , J) ) 

750  CONTINUE 

BHAT( I )=( WY( I) -SUM) /LT( I , I ) 

800  CONTINUE 


DO  950  1=1,4 

B(I)=SNGL(BHAT(I)) 

:  WRITE  (6,900)BHAT(I),B(I) 

950  CONTINUE 

900  FORMAT  (IX, 'BHAT  ' ,F30.  15, ' BSNGL  ' ,F30. 15) 

j 

RETURN 

END 


1929  C 

1930  C  *****  MATRIX  MULTIPLICATION  XT  *  X  =  XRES  ******* 

1931  C 

1932  SUBROUTINE  MATSQ  (  X,  XRES,  M.  N  ) 

1933  REAL*8  X(8,7) ,XT(7,8) ,XRES(7,7) ,SUM 

1934  C 

1935  C  ***  BUILD  X-TRANSPOSE  IN  LT  ********** 


1936  DO  20  1=1, M  SMT 

1937  DO  10  J=1,N  SMT 

1938  XT(J,I)=X(I,J)  SMT 

1939  10  CONTINUE  SMT 

1940  20  CONTINUE  SMT 

1941  C  SMT 

1942  C  ***  XT  *  X  =  XRES  ****  SMT 

1943  C  SMT 

1944  DO  50  1=1, N  SMT 

1945  DO  40  J=1,N  SMT 

1946  SUM=0. ODO  SMT 

1947  DO  30  K=1,M  SMT 

1948  SUM=SUM+(XT(I,K)*X(K,J))  SMT 

1949  30  CONTINUE  SMT 

1950  XRES  (I,J)  =  SUM  SMT 

1951  40  CONTINUE  SMT 

1952  50  CONTINUE  SMT 

1953  RETURN  SMT 

1954  END  SMT 

1955  C  SMT 

1956  C  ****  MATRIX  MULTIPLICATION  XT  *  Y  =  XTY  ********  SMT 

1957  C  SMT 

1958  SUBROUTINE  MATMUL  (  X,Y,XTY,M,N  )  SMT 

1959  _ REAL*8  Y( 8) ,XT( 7 , 8) ,X(8, 7) ,XTY( 7) ,SUM  SMT 

1961  C  SMT 

1962  C  WRITE(6,102)  SMT 

1963  102  FORMAT  (IX,'  Y  ',/)  SMT 

1964  C  WRITE  (6 , 100)( Y( I ) , 1=1 ,8)  SMT 

1965  100  FORMAT  (IX, 6F20. 10)  SMT 

1966  C  WRITE(6,101)  SMT 

1967  101  FORMAT  (IX,'  X  ' ,/)  SMT 

1968  DO  150  1=1,8  SMT 

1969  C  WRITE  (6 , 100)(X( I , J) , J=1 , 7)  SMT 

1970  150  CONTINUE  SMT 

1971  C  SMT 

1972  C  ???????????????????????????????????????????????  SMT 

1973  C  SMT 

1974  C  SMT 

1975  C  ****  BUILD  XT  ******  SMT 

1976  DO  20  1=1, M  SMT 

1977  DO  10  J=1,N  SMT 

1978  XT(J,I)=X(I,J)  SMT 

1979  10  CONTINUE  SMT 

1980  20  CONTINUE  SMT 

1981  C  SMT 

1982  C  ****  XT  *  Y  =  XTY  *******  SMT 

1983  C  SMT 

1984  DO  50  1=1, N  SMT 

1985  SUM=0.  ODO  SMT 

1986  DO  40  J=1,M  SMT 

1987  SUM=SUM+(XT(I,J)*Y(J))  SMT 

1988  40  CONTINUE  SMT 

1989  XTY(I)=SUM  SMT 

1990  50  CONTINUE  SMT 


165 


1991 

1992 


RETURN 

END 


SMT 

SMT 


1993 

c  **■ 

ie***Mt*A******-ir*ir**'ir)(****************************ic*ir/rMei 

Hr**********  SMT 

1994 

SUBROUTINE  SORT  (Y,N) 

SMT 

1995 

C 

INPLACE  SORT  USING  SHELL  ALGORITHM  ******** 

SMT 

1996 

REAL  Y(N),TEMP 

SMT 

1997 

INTEGER  GAP 

SMT 

1998 

LOGICAL  EXCH 

SMT 

1999 

c 

SMT 

2000 

GAP=(N/2) 

SMT 

2001 

5 

IF  (.NOT.  (GAP.NE.  0))  GO  TO  500 

SMT 

2002 

10 

CONTINUE 

SMT 

2003 

EXCH=.  TRUE. 

SMT 

2004 

K=N-GAP 

SMT 

2005 

DO  200  1=1, K 

SMT 

2006 

KK=I+GAP 

SMT 

2007 

IF(.NOT.  (Y(I).GT.Y(KK)))  GO  TO  100 

SMT 

2008 

TEMP=Y(I) 

SMT 

2009 

Y(I)=Y(KK) 

SMT 

2010 

Y(KK)=TEMP 

SMT 

2011 

EXCH=.  FALSE. 

SMT 

2012 

100 

COITINUE 

SMT 

2013 

200 

CONTINUE 

SMT 

2014 

IF  (.NOT. (EXCH))  GO  TO  10 

SMT 

2015 

GAP=(GAP/2) 

SMT 

2016 

GO  TO  5 

SMT 

2017 

500 

CONTINUE 

SMT 

2018 

RETURN 

SMT 

2019 

END 

SMT 
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